sub foo { local $@; return eval { bar( shift ) } || 0; }