use POSIX;
print POSIX::strftime "%a %b %e %H:%M:%S %Y", localtime($^T);

__END__
Wed Feb  4 17:45:10 2009