my $foo = eval ...
    or die("...: $@");