while( $sz > 32760 ) {
   print $FH substr($m, pos($m), 32760);
   pos($m) += 32760;
   $sz -= 32760;
}

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

##</code><code>##

while( $sz > 32760 ) {
   print $FH substr($m, 0, 32760, '');
   $sz -= 32760;
}

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

##</code><code>##

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

##</code><code>##

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