5 lines
106 B
Perl
5 lines
106 B
Perl
|
use POSIX qw(strftime);
|
||
|
|
|
||
|
|
$now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
|
||
|
|
print "$now_string\n";
|