RosettaCodeData/Task/Date-format/Perl/date-format-2.pl

5 lines
107 B
Perl

use POSIX;
print strftime('%Y-%m-%d', localtime), "\n";
print strftime('%A, %B %d, %Y', localtime), "\n";