use DBI; sub simpleconnect { my $dbh; eval {$dbh=DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port", $dbuser, $dbpass, {AutoCommit => 0});} if ($dbh) { $dbh->disconnect(); } } my $dbh; eval {$dbh=DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port", $dbuser, $dbpass, {AutoCommit => 0});} if ($dbh) { &simpleconnect(); my $i=0; my while ($i<=7) { $result=0; my $sth=$dbh->prepare("INSERT INTO table1 (col1,col2) values( ?, 'test')"); if ( $sth->execute($i) ) { $result=1 if ( $sth->rows()==1 ); } $sth->finish; } $dbh->commit() if ( $result ); $dbh->disconnect(); }