Select Code to Download

eval {
    $sth->execute();
...
    # and re-throw the common message
    die 'HEY!!!! Something is messed up here!';
}

my $sql = q{INSERT INTO mytable VALUES ( ?,?,? )};
eval {
...
    # error trapping here
    ...
}