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