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");

##</code><code>##

perl -ML -E'say DateTime::Format::Strptime->new(pattern => "%F  %T")->
                parse_datetime("2008-11-03  19:03:44")->strftime("%a, %d %b %Y %T EST");
'

##</code><code>##

Mon, 03 Nov 2008 19:03:44 EST