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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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