Select Code to Download

while( <> ) {
    print "First: $_";
...
while( <> ) {
    print;
}

my $args= @ARGV;
if(     ! eof()          # Prime the <> pump
...
while( <> ) {
    print;
}