Select Code to Download

$ perl -le 'print $h++'
0
$ perl -le '0 and print "this will not be printed"'
$

while ( <DATA>) {
    chomp;
...
 
    print;
}