gisdb=# create user gisdb with password 'gisdb';
CREATE ROLE

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=dumpdb", 'mh', 'mh', {AutoCommit => 0});

my $sth = $dbh->prepare('select * from bla');

$sth->execute();

while (my @r = $sth->fetchrow) {
  print "@r\n";
}

$sth->finish;
$dbh->disconnect;