my $dbh = DBI->connect ("DBI:Pg:dbname=test2", "postgres", "sonderbar")
   or die "Keine Verbindung mit der DB!\n";