eval {
    $sth->execute;
};

if ($@) {
    die or log or whatever......
}