H:\scripts\7d>perl -e "print ((localtime(time))[2])"
16