Select Code to Download

>perl -MO=Deparse -e"while (<STDIN>) {}"
while (defined($_ = <STDIN>)) {
...
    ();
}
-e syntax OK