http://www.perlmonks.org?node_id=672749


in reply to The day of today

perl -le 'print +(localtime)[3]'

Runs under strict too.

-- Frank