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