my($ret) = $ret || foo();