Select Code to Download

my $ref->{number} = 123;
my $arg = shift ( @ARGV ) ;
...
    print "$arg doesn't match\n";
  }
}

C:\src>perl monks.pl one
one matches
...
one doesn't match
one matches
one doesn't match