perl -l -e '$date=localtime(time); print $date;'