perl -n -MO=Deparse -e 'my $x' foo

##</code><code>##

LINE: while (defined($_ = <ARGV>)) {
    my $x;
}
-e syntax OK