I'm rather fond of the englishy things you can do with Date::Manip:

my $this_month = &UnixDate(&ParseDate("today"), "%m");
my $two_ago    = &UnixDate(&ParseDate("2 months ago"), "%B");
[download]