Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    print "\t--fourth\n";
    print "\t--help\n";
}

***** Output *******
C:\temp>getopts.pl --year --first
...
Processing sub first
Invalid options passed to C:\temp\getopts.pl