<perl>
get "Datum==$Datum Bereich==Bundesliga", "fussball", "erghash";
while(get_next("erghash")) {
$dat=datum("$Datum", "Tag0.Monat0.Jahr2");
$opDatum{$dat}++
}
foreach my $opDatum(sort keys %opDatum){
# $a_opDatum .= $opDatum eq $fdatum ? "<option selected value=$opDatum>$opDatum" : "<option value=$opDatum>$opDatum";
$a_opDatum .= "<option value=$opDatum>$opDatum";
}
my $sl = "selected" if $fdatum eq "";  
out<<EOF;
<form action='/cgi-bin/baseportal.pl?htx=/fussball/seite&&Bereich==Bundesliga' target='Daten' method='post' enctype='multipart/form-data'>
<b>Bundesliga</b>
<select name="fdatum=" value='$fdatum' class='navi2'>$a_opDatum
</select>
<br>
<input type="submit" alt="ANSICHT">
</form>
EOF
</perl>