Select Code to Download

foreach my $arg (@ARGV) {
    if( $arg =~ /^-B(\d+)$/ ) {  # months Before
...
    if( $before !~ /^\d+/ ) {
        die "Bad before argument ($before)\n";
    }

/$ /usr/local/bin/cal2.pl -B 4
Uncaught exception from user code:
    Bad before argument (-B)