{
  local($/) = \$record_length;
  my $first_record = <recordline>;
  $/ = \(512*1024);
  while (<recordfile>) {
    print newrecordfile;
  }
}