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