Select Code to Download

#!/usr/bin/perl -w

...
#set year to 2002.
   my $month = '07';
   my $year = '2002';

   my %switch_hash = (
        chrdex   => {
...
           '4-AUG-02'  => .25,
        },
       );

   my $rswitch_hash = \%switch_hash;
   my %calendar = (
...
   print "Useage: xcl2.pl <hash reference> <Month Number 1-12> <4 digi
+t year>\n";
   exit;
}