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