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