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