Select Code to Download

while ( defined( my $line = <STDIN> ) ) {

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

...
    };
}
-e syntax OK