use HTTP::Date;
my $stamp = str2time $timestr;