6 lines
135 B
Perl
6 lines
135 B
Perl
use DateTime;
|
|
my $dt = DateTime->now;
|
|
say $dt->iso8601();
|
|
say $dt->year_with_christian_era();
|
|
say $dt->year_with_secular_era();
|
|
# etc.
|