eval {
    $db->do($sql) or die $db->errstr();
    $db->commit();
}

if ($@) {
    warn "DB error: $@\n";
}