$i = 0;
until ( eof (recordfile) )
{
 read (recordfile, $record, $record_length)
 if (i > 0)
 {
  print newrecordfile ($record);
 }
 i++;
}