use Time::Piece;
my $t = Time::Piece->strptime(
  '2008-11-03 20:15:44',"%Y-%m-%d %H:%M:%S"
);
print $t->strftime("%a, %d %b %Y %H:%M:%S %Z");