<do action=input>
<perl>

<form action="baseportal.pl?htx=/Juergens/votum/vo&cmd=add" name="_baseportal_form0" method="post" enctype="multipart/form-data"><input type=hidden name="htx=" value="/Juergens/votum/vo"><input type=hidden name="cmd=" value="add"><tr><td align=right>Wertung:</td><br><td><input type="radio" name="Wertung:=" value="diese Seite ist ein Hit" checked>&nbsp;diese Seite ist ein Hit<br> <input type="radio" name="Wertung:=" value="diese Seite ist gut">&nbsp;diese Seite ist gut <br><input type="radio" name="Wertung:=" value="diese seite ist ok">&nbsp;diese seite ist ok<br> <input type="radio" name="Wertung:=" value="geht so">&nbsp;geht so<br> <input type="radio" name="Wertung:=" value="mist">&nbsp;mist</td></tr><tr><td></td><td nowrap><br><input class=submit type=submit value="Abschicken"> </td></tr></form>

</perl>
<loop db=vo code=perl>
$Wertung{$Wertung}++;
</loop>

foreach my $k (sort keys %Wertung)

out "$k:$Wertung{$k}<br>";
}
</perl>