$ perl -MO=Deparse -e 'while ( my $line = <STDIN> ) { print $line }'

while (defined(my $line = <STDIN>)) {
    do {
        print $line
    };
}
-e syntax OK