AutoCommit => 0,

my $sql = qq(insert into a values ('2'));
my $sth = $dbh->prepare($sql);
$sth->execute();
sleep(5);
$dbh->commit();
print "exit\n";