print $FH substr($m, 0, $sz, '');