use File::stat;
local $/=\(stat($FH)->blksize);