C:\Users\Peter>perl -MO=Deparse -Mstrict -le "my $x; $x = 0 or die $x"
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict;
my $x;
die $x unless $x = 0;
-e syntax OK