sub another_converter
{
   my $httpdate = shift;
   my ($mday,$mon,$year,$hours,$min,$sec) = 
        $httpdate =~ m/(\d+)\s+(\w+)\s+(\d+)\s+(\d+):(\d+):(\d+)/;
        
   my $month_num = $month2num{$mon};   
   
   my $thistime = timegm($sec,$min,$hours,$mday,$month_num,$year);
   
   return ($thistime);
}