Help for this page
my $result; if (!eval { ... }) { die("Unable to ...: $@\n"); }
local $SIG{'__DIE__'} = sub { die($@) if $^S; ... };