use Time::Local;

my $timestring='Thu Jan 8 07:01:01';

my (undef,$mon,$mday,$hour,$min, $sec)=split / |:/, $timestring;
my $year=2004;

my $time = timelocal($sec,$min,$hour,$mday,$mon,$year);

print "$timestring = $time = " . scalar(localtime($time));