$ perl -Mstrict -we'sub bar {"baz"} sub foo {eval{return bar() || die}; "quux"} print foo()'
quux$