Select Code to Download

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