USE COBOLIO;
$cobempl = COBOLIO->new("copylibs/PEOPLE.txt", "PEOPLE_FILE", 1);
open(INPUTFILE, "EMPL.PEOPLE.LIST.DISK");
open(OUTPUTFILE, ">BadEmployees.txt");
printf OUTPUTFILE, $cobio->GetCSVHeader("PEOPLE_FILE");
while(<INPUTFILE>) {
    $cobempl->ReadRecInto($_, "PEOPLE_FILE");
    if($cobempl->GetVal("SICK_DAYS_USED") > 5) {
        print "employee ".$cobempl->GetVal("EMPLOYEE_NUMBER")." has used up all sick leave\n";
    printf OUTPUTFILE, $cobio->GetCSVRecord("PEOPLE_FILE");
    }
}
..
..