$ perl -e 'print scalar localtime, "\n"'
Sun Sep 22 13:01:42 2002
$ perl '-MPOSIX qw(strftime)' -e 'print strftime( "%a %b %d %T %Z %Y", localtime ), "\n"'
Sun Sep 22 13:01:48 PDT 2002