perl -e 'print $a=(localtime())[5]'
105