C:\Users\alex>perl -Mstrict -w -E "sub false { 0 } my $x=false or die 'Died'; say 'not reached';"
Died at -e line 1.