eval {
    scrub($decks);
    weigh($anchor);
    sail_to($destination);
};

if ($@) {
    warn "Uh oh, we had a problem with $@";
}