my $dbh = DBI->connect("DBI:PgPP:dbname=gpsrd","test","test");
  print "Error\n" if ( not defined $dbh );

  my $session = new CGI::Session("driver:PostgreSQL", undef, {Handle=>$dbh});
  print "Error\n" if ( not defined $session );