perl -e "print @{localtime}[1,3];"