while (!eof(STDIN)) {
    my $buffer ;
    read STDIN, $buffer, 100*1024   or die "$!" ;
    if (!eof(STDIN)) {
      my $nl = rindex($buffer, "\n") + 1  or die "No \\n in lump ?" ;
      if (my $trim = $nl - length($buffer) {
        seek STDIN, $trim, 1   or die "Seek failed ??" ;
        substr($buffer, $trim) = '' ;
      } ;
    } ;

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