Help for this page

Select Code to Download

Select or download this

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