#!perl

use strict;
use warnings;

my %args = (
  pass          => sub { exit(0) },
  dothefandango => sub { exit(0) },
);
while($_ = shift()) {
  $args{$_}->() if($args{$_});
}

exit(1);