今まで
$data = join('',<FH>);
ってかいてたから
read(FH,$data.-s FH);
なんてでてこなか〜ただよ。