Select Code to Download

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

use Error;

...
    my $E = shift;
    warn "We're not sailing due to $E";
};