Help for this page

Select Code to Download

Select or download this

{
  local($/) = \$record_length;
...
    print newrecordfile;
  }
}