my $cgi = new CGI;
my  %fields = ();
$fields{$_} = $_ . ' Jahre' for 14..60;

print $cgi->popup_menu('alter', \%fields);