in reply to get previous month in two digit number

use Date::Manip;
print UnixDate('today', '%m');   # --> 07
print UnixDate('last month', '%m');   # --> 06

[download]

In Section Seekers of Perl Wisdom