$ perl -Mstrict -wE'sub foo{} sub bar{return (foo() or die "died")} bar()' died at -e line 1.