Or use warnings:

use warnings;

my $x;
if ($x = 0) { 1 }

__END__
Found = in conditional, should be == at - line 4.
[download]

lodin