Help for this page
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