use warnings;
use strict;

use POSIX qw(strftime);
my $today = strftime('%a %b %d %H:%M:%S %Z %Y', localtime);
print "$today\n";

__END__

Tue Jan 08 12:25:53 EST 2013