$ perl -MO=Deparse -n -e 'print $_'
LINE: while (defined($_ = <ARGV>)) {
    print $_;
}
-e syntax OK