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