Select Code to Download

#! perl -sw
use strict;
...
    qx[ x --filename:tempfoo -firstline:1 -lastline:1000 ];    
}
close FOO;

perl -ne"print" junk | perl -le"
while( not eof(STDIN) ) { 
...
100 99 98 97 96 95 94 93 92 91
110 109 108 107 106 105 104 103 102 101
...