$cobolRecs = new COBOLIO::COBOLRecs();
$cobolRecs->CreateRecs("cobol_copy_1.txt");
open(COBOLDATA, "datafile.txt");
while(<COBOLDATA>) {
    $cobolRecs->ReadRecInto($_, "BIG_COBOL_RECORD_NAME");
    if($cobolRecs->{EMPLOYEE_NUMBER} < 5000) {
        print "Retirement imminent for $cobolRecs->{EMPLOYEE_NAME}\n";
    }
}