use DateTime::Format::Strptime;
my $formatter = DateTime::Format::Strptime->new(pattern => "%F  %T");
my $dt_obj    = $formatter->parse_datetime("2008-11-03  19:03:44");
my $datetime  = $dt_obj->strftime("%a, %d %b %Y %T EST");