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