foreach my $name (readdir DIR) {
        next if /^\./;