#!/usr/local/bin/perl -w use POSIX; $TIME=strftime(" %Y/%m/%d %H:%M:%S",localtime()); #$TIME=localtime(); print $TIME ;