Select Code to Download

#!/usr/bin/perl

...
    print qq{<option value="$i">$i</option>\n};
}
print qq{</select>};

<select name="year">
<option value="2009">2009</option>
...
<option value="2017">2017</option>
<option value="2018">2018</option>
</select>