#!/usr/bin/perl
print "Content-type:text/html\n\n";
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$i=$year;
$i1=$i+9;
print '<select name="year">';
for ($i ; $i <= $i1; $i++) {
print "<option value=\"$i\">$i</option>\n";
}
print '</select>';