Select Code to Download

local $@;
my $book = eval {
  Spreadsheet::Read->new($file);
};

local $@;
my $book;
...
  $book = Spreadsheet::Read->new($file);
  1;
};

local $@;
my $ok = eval {
  doSomethingButDontWantReturnValButCouldDie() or undef;
  1;
};

local $@;
my $ok = eval {
  doSomethingButDontWantReturnValButCouldDie();
  1;
} or undef;