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

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