$ perl -e 'print( (localtime)[1], "\n" )'
19