my $len = read($in,$buf,4*1024);
...