my $CF = new FileHandle $cntrF, ( O_RDWR | O_APPEND || die "'cntrF' did not open $!\n" );