use strict;
use warnings;
use DBI;

my $dbh = 
DBI->connect("dbi:SQLite:dbname=test.sqlite","","",
                { RaiseError => 1, AutoCommit => 1 });
$dbh->begin_work;
$dbh->do("UPDATE abc SET foo = 'heyo'");
my @x = <>;
$dbh->commit;