Select Code to Download

#!/usr/bin/perl -w
my $a = "aBcdeFG";
...
} else {
    print "Neither\n";
}

sub IsNumeric {
    my $val = shift;
...
        warn "IsNumeric requires an argument!";
    }
}