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