print $FH substr($m, pos($m), $sz);
pos($m) += $sz;