<loop code=perl db=datenbank1>
out <<EOF;
Feld1=$Feld1...etc.
EOF
if($Feld2 eq "bestimmer Wert(X)")
{
  get "Feld3==...", "datenbank2";
  while(get_next "datenbank2")
  {
    out <<EOF;
$Feld4...etc.
EOF
  }
}
</loop>