#!/usr/bin/perl

use strict;

my $year = 1900 + (localtime)[5];

print qq{<select name="year">\n};
for ( my $i = $year; $i <= $year + 9; $i++ ) {
    print qq{<option value="$i">$i</option>\n};
}
print qq{</select>};  

##</code><code>##

<select name="year">
<option value="2009">2009</option>
<option value="2010">2010</option>
<option value="2011">2011</option>
<option value="2012">2012</option>
<option value="2013">2013</option>
<option value="2014">2014</option>
<option value="2015">2015</option>
<option value="2016">2016</option>
<option value="2017">2017</option>
<option value="2018">2018</option>
</select>