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