if($dbh->do(...somestuff...) && $dbh->do(...otherstuff...)) {
    $dbh->commit;
} else {
    print STDERR "Database error: ", $dbh->errstr, "\n";
    $dbh->rollback;
}