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