Select Code to Download

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

           while (my $line = <STDIN>) { print $line }