読み込むファイルが巨大だったら。。。を思うと while(read($fh, $buf, 64)){}
みたいにぶん回したほうがいいんじゃないのかな?って思うわけです。はい。