$ perl -e "print +(localtime(time))[2]"
16