get "filterfeld==$filterwert range=0,1", $dbname, $ergebnishash;
$percode = $feldvariablenname_mit_perlcode
eval $perlcode;

# Modularisierte Ausgabe für HTML-Bausteine zur beliebigen Weiterverwendung
my $out; # Geltungsbereich für Rückgabevariable
get "sort=?", "wechsel";
 while(get_next "wechsel")
 {
$out = "<br>$Titel";
$out ."<<EOF;
<table width="100%">
  <tr>
    <td align="center">
EOF
$out .= "$inhalt";
$out .= "</td></tr></table>";
}
return $out;

get "filterfeld==$filterwert range=0,1", $dbname, $ergebnishash; # hier holen wir den Quelltext aus der Datenbank
# und dann bauen wir eine Subroutine mit dem Namen des Filterwertes und dem Quelltext für diesen Wert aus der DB
if ($_amount_query > 0){ # dient der Vermeidung von Fehlermeldungen falls kein DS vorhanden ist
eval sub $filterwert { $feldvariablenname_mit_perlcode}; 
}

$modulhtml = &filterwert;

$modulhtml

EOF