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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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