$ /usr/local/bin/perl5.10.0 -w
my $x if 0
__END__
Deprecated use of my() in false conditional at - line 2.
$ /usr/local/bin/perl5.10.0 -w
my $x = $_ for (1 .. 3);
__END__