System time: Difference between revisions
Content added Content deleted
(Add perl version.) |
m (→{{header|Perl}}: Remove my, if isn't with strict pragma.) |
||
| Line 83: | Line 83: | ||
use POSIX qw(strftime); |
use POSIX qw(strftime); |
||
$now_string = strftime "%a %b %e %H:%M:%S %Y", localtime; |
|||
print "$now_string\n"; |
print "$now_string\n"; |
||