C:\Users\Peter>perl -MO=Deparse -Mstrict -w -E "sub false { 0 } my $x=false or die 'Died'; say 'not reached';"
BEGIN { $^W = 1; }
use strict;
use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'postderef_qq', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';
sub false {
    0;
}
die 'Died' unless my $x = false();
say 'not reached';
-e syntax OK