#!usr/bin/perl

use 5.6.1;

use strict;
use warnings;
use DBI;

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