Select Code to Download

  my $date = shift || '12/DEC/2001:17:23:09';

  use constant MONTH => {
    Jan => 1, Apr => 4, Jul => 7, Oct => 10,
...
  ...

  my $mon = MONTH->{$mon};