#!/usr/bin/perl -w

use strict;
use warnings;
use DBI;

my ($dbh, $sth);

$dbh = DBI->connect ("DBI:mysql:host=192.168.0.1;database=myDB",
                     "user", "pw", {PrintError => 0, RaiseError => 1});

&fetch_ent();

$dbh->disconnect();
exit(0);

sub fetch_ent {
  my $sth = $dbh->prepare ("	SELECT Firma, Strasse, PLZ, Ort, EID
  						FROM firma
  						WHERE Firma LIKE 'N%'
  						");
  $sth->execute();

  while (my ($firma, $strasse, $plz, $ort, $eid) = $sth->fetchrow_array()) {
          print "<tr bgcolor='#EEEEEE'><td>\n",
                "<table class='blind'><tr>",
                "<td>$firma</td><td>$strasse</td><td>$plz</td><td>$ort</td>",
                "</tr></table>",
                "</td></tr>\n",
                "<tr bgcolor='#FFFFDD'><td>\n";

          &fetch_contact($eid);

          print "</td></tr>\n";
  }
  $sth->finish();
}

sub fetch_contact {

  my $eid = shift @_;

  my $sth = $dbh->prepare ("	SELECT Name, Vorname
  						FROM person
  						WHERE EID = '$eid'
  						");
  $sth->execute();

  while (my ($nachname, $vorname) = $sth->fetchrow_array()) {
          print "<table class='blind'><tr>",
                "<td>$nachname</td><td>$vorname</td>",
                "</tr></table>";
  }
  $sth->finish();
}