my $ret;
eval { $ret = $foo->blah; 1 }
or warn "it failed but did err get clobbered? $@";