IO::COBOL::ReadData($FILEHANDL, $COBOLRecord);
IO::COBOL::WriteData($OUTFILEHANDL, $COBOLRecord);