in reply to Re^2: How to get last month date period
in thread How to get last month date period

This will break in January.

You're right.  To fix, just add: 

$curr_year-- if $curr_month eq "Jan";

[download]

In Section Seekers of Perl Wisdom