$ perl -E 'say join( ", ", sub{ 1+shift, 1900+shift }->((localtime time)[4,5]) );'