use CGI;
my $q = CGI->new();
my @options = 1..12;
print $q->scrolling_list(-name=>"score6",
			 -values=>\@options,
				-size=>1
			);