eval{$sth->execute("BLAH")}

if($@)
{
  $dbh->rollback();
}
else
{
  $dbh->commit();
}