use Date::Format qw(time2str);
my $date = time2str('%a, %d %b %Y %H:%M:%S %z', time));