Select Code to Download

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

$| = 1;
...
        print "closed\n";
        exit 0;