RosettaCodeData/Task/System-time/Perl/system-time-4.pl

5 lines
106 B
Perl

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