# aperl -we 'use Time::localtime;print ctime()'
Wed Apr 21 17:11:38 2004

##</code><code>##

# date
Wed Apr 21 17:11:42     2004

##</code><code>##

# perl -we 'use Time::localtime;print ctime()'
Wed Apr 21 15:11:45 2004