Select Code to Download

for ($i=0, @chunk = (); !eof(IN) && $i < 10; $i++) {
   $chunk[$i] = <IN>;
}

# Untested, but you get the idea

...
      handle_line($1);
   }
}