perl -e "print+(localtime)[5]"