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

# Can we leave out the 'else' and just say:

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