use warnings; my $x; if ($x = 0) { 1 } __END__ Found = in conditional, should be == at - line 4.