while( read( I, my $buf, 16484  ) ) {