$dbh->{RaiseError} = 1;
eval {
  my $sth = $dbh->prepare("select blah from table");
  $sth->execute();
};
if ($@) {
  warn "Transaction aborted: $@";
  eval { $dbh->rollback };
  die "Unable to rollback: $@" if $@;
}