<perl>
#hier erster Teil mit $vergleichen und so...
if $vergleichen=1
{
get "kundenname==$name kundenvorname~=$vornamen","adressen";
while (get_next("adressen"))
{
out <<EOF;

$kundenname $kundencorname <br>

}
}