Select Code to Download

  $pool->job($_) while (<STDIN>);

  while (!eof(STDIN)) {
    my $buffer ;
...

    $pool->job($buffer) ;
  } ;

  sub do {
    my ($lump) = @_ ;
...

    return $result ;
  } ;

  sub do {
    chomp;
    my $input = $_;
    $input = shift;