c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 999;
 print 'is it safe?' if (my $x == 0);
"
"my" variable $x masks earlier declaration in same scope at -e line 1.
Use of uninitialized value in numeric eq (==) at -e line 1.
is it safe?

##</code><code>##

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

##</code><code>##

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