C:\Users\Peter>perl -Mstrict -le "my $x; $x = 0 or die $x"
0 at -e line 1.