Select Code to Download

my $state = join("\n",map { s{^\./}{}; $_} @noCvsDirs);

my $fh = new IO::File(">hwconfig.cfg")
  or die "Couldn't open hwconfig.cfg: $!\n";
...

close $fh
  or die "Couldn't close hwconfig.cfg: $!\n";