I added:

  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 );
[download]

And I don't get any errors that say they aren't defined.