eval { ... ; 1} or die "Barfoo ... $@";