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