sub num_month {
  my $date = shift;
    
  my %months  = (JAN => '01', FEB => '02', MAR => '03', 
                APR => '04', MAY=> '05', JUN => '06', 
				JUL => '07', AUG => '08', SEP => '09', 
				OCT => '10', NOV => '11', DEC => '12');
				
  my @tokens = split (" ", $date);
  my $date;
  foreach my $num (@tokens) {
	 my $strBegin = substr($num, 0, 3);
	 my $date =~ s/$strBegin/$months{uc $strBegin}/;  
  }
  return $date;
}