Help for this page
perl -n -MO=Deparse -e 'my $x' foo
LINE: while (defined($_ = <ARGV>)) { my $x; } -e syntax OK