use DBI;

my $db = 'Pg';
my $database = 'test';
my $user = 'test';
my $password = 'test';

my $dbh = DBI->connect(
"DBI:${db}:database=" . $database . ";", $user, $password,
    {
	RaiseError => 1,
	PrintError => 1,
	PrintWarn => 1,
#	AutoCommit => 0,
    }
);

$dbh->begin_work;

my $st = $dbh->prepare('delete from test where inc = ?');

for my $x (2, 4, 6) {
    my $ra = $st->execute($x);

    print $st->rows, "\n";
}

$dbh->rollback;