Select Code to Download

$mon += 1;
$yr += 1900;

$ date
Thu,  7 Jan 2021 09:03:14

$ perl -E 'say for (localtime)[1..5]'
3
...
7
0
121

$ perl -E 'use Time::Piece; my $t = localtime; say $t->$_ for qw{min h
+our mday mon year}'
3
...
7
1
2021