Help for this page
$ date|awk '{print $4}'|awk -F: '{print $1$2}'|cut -c3-4 19
$ perl -e 'print( (localtime)[1], "\n" )' 19