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