$date2 = HTTP::Date::parse_date($date);

##</code><code>##

  use HTTP::Date qw(parse_date);