c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 999;
 if (my $x = 1) { print 'is it safe?'; }
 print $x;
"
Found = in conditional, should be == at -e line 1.
is it safe?
999