How to Auto Generate range of years using perl?

Question

I have this simple script to automatically print HTML selection option.

#!/usr/bin/env perl
use strict;
for (reverse(1943 .. 1991)){
  print "$_n";}

I need to print all the years between 18 and 73 without hard coding the range in the for loop as in the above. I am considering the use of localtime to compute the current year as below $yr=(localtime), but I cant think of an easy way to achieved what I want to do.

Answer 1

Check if the following works?

#!/usr/bin/env perl
use strict;
my ($min_yr, $max_yr);$min_yr =(localtime)[5] + 1900 - 18; $max_yr = (localtime)[5] + 1900 - 73;
for (reverse($max_yr .. $min_yr)){
 print "$_n";}