eval "...; 1"
    or  die "Eval failed: $@\n";