my $dbh = DBI->connect ("dbi:Pg:dbname=test", ...);