mysql AutoCommit in perl

my $dbh= DBI->connect(............  );

my $sth = $dbh->prepare("call sp_get_workitems (1,1)");
$dbh->begin_work  or die $dbh->errstr;       #$dbh->{'AutoCommit'} =
0; same as begin_work
$sth->execute();
my ($result)= $sth->fetchrow_array();

$dbh->commit;