use DBI;

my$dbh = DBI->connect("DBI:Pg:dbname='five'; port=5432", user=postgres,{ RaiseError => 1, AutoCommit => 0 })
or die "kon de database niet openen!";