Help for this page
#!/usr/bin/perl -w my $a = "aBcdeFG"; ... } else { print "Neither\n"; }
sub IsNumeric { my $val = shift; ... warn "IsNumeric requires an argument!"; } }