$ perl -Mstrict -wE'sub foo{} sub bar{return foo() || die "died"} bar()'

died at -e line 1.