localtime();

perl -le 'print scalar localtime()."\n";'
Thu Dec 30 13:19:44 1999