my $ok = eval {
    ...
    $sth->execute();
    ...
    1;
};
if (! $ok) {
    print "Caught error: $@";
};