karls-mac-mini:monks karl$ perl -E '$day=(localtime)[3]; say $day;'
13
karls-mac-mini:monks karl$ perl -E '$month=(localtime)[4]; say $month;'
5
karls-mac-mini:monks karl$ perl -E '$month=(localtime)[4]; say ++$month;'
6
karls-mac-mini:monks karl$ date +%m
06