perl -e'print +(localtime())[5]'