perl -e '$date=localtime(time); print $date,"\n";'