programming-examples/perl/Statement/Use while loop to read console input.pl

while ($_ = <>) {
    print $_;
}
while (<>) {
    print;
}