#!/usr/bin/perl
use strict;
use warnings;
my ( $swt1, $user, $swt2, $code ) = @ARGV;
exit !($swt1 eq '-uid'
&& $user eq 'dwho'
&& $swt2 eq '-code'
&& $code eq '123456' );