<perl>
get "Id==*","xy";
out "Ueberschrift1; Uberschrift2; Ueberschrift3, ...<br>";
while ((get_next("xy))
{
    out $feldname1,";";
    out $feldname2,";";
    out $feldname3,";";
    out $feldnamex,";";
    out $feldnamey,";";
    out $feldnamez,";<br>";
}
</perl>