$ perl -MDBI -e 'my$d=DBI->connect("dbi:SQLite:dbname=x.db","","",{AutoCommit=>0}); $d->begin_work or die "ah, of course! *HEADWHACK*\n"'
DBD::SQLite::db begin_work failed: Already in a transaction at -e line 1.
ah, of course! *HEADWACK*