open(COMPLIST, "> " . $CompFiles) || die "Can't open $CompFiles: $!\n";

##</code><code>##

open my $complist, '>' , $CompFiles or die "Can't open $CompFiles: $!\n";