8 lines
115 B
Perl
8 lines
115 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my ($swt, $user) = @ARGV;
|
||
|
|
|
||
|
|
exit !( $swt eq '-uid' && $user eq 'dwho' );
|