perl -e 'print (localtime)[2];'