my $current_month = strftime "%m", localtime;

##</code><code>##

my $previous_month = $current_month - 1;