# positive integer, current year 
my $year = 

# integer 1 to 12, current month
my $month = 

# positive integer, number of months to go back
my $monthsback =