use POSIX qw(strftime);
my $time = strftime("%a, %d %b %Y %H:%M:%S %z", localtime time);