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

Possible precedence issue with control flow operator at -e line 1.