Help for this page
#!/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>