#!perl
use strict;
use warnings;
my %args = (
pass => sub { exit(0) },
);
while($_ = shift()) {
$args{$_}->() if($args{$_});
}
exit(1);
#!perl
use strict;
use warnings;
my %args = (
pass => sub { exit(0) },
);
while($_ = shift()) {
$args{$_}->() if($args{$_});
}
exit(1);