localtime();

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

See also 'perldoc Time::Local' to break the current time into an array under perl5, and 'perldoc POSIX' and search for strftime() for more flexible printing.