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

print $fh join("\n",
            map { s{^\./}{}; $_ } 
              grep { !/CVS/ and !/~$/ } 
                find('.'))
  or die "Couldn't write to hwconfig.cfg: $!\n";

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