sub runDir($$) {
    my $prefix = shift @_;
    print '*'.$prefix,"\n";
    my $dir = shift @_;
    print "**$dir*","\n";
    opendir(DIR, $dir) or die $!;
    my @entries = readdir(DIR);
    # print @entries,"\n";
    close(DIR);
    foreach my $file (@entries) {
        next if ($file =~ /^\.+$/);
        if ( -d $dir . '/' . $file) {
            print "***down runDir($prefix . $file . '_', $dir . '/' . $file)\n"; 
            runDir($prefix . $file . '_', $dir . '/' . $file);
            print "***up   runDir($prefix . $file . '_', $dir . '/' . $file)\n"; 
        } elsif ( ( -f $dir . '/' . $file ) && ( $file =~ /\.config$/ ) && ($file !~ /^$prefix/)) {
            my $suffix = $file;
            $suffix =~ s/^(\S+)-.+\.config$/$1.config/;
            
            print "****rename $dir . '/' . $file, $dir . '/' . $prefix . $suffix"."\n"; 
#            rename $dir . '/' . $file, $dir . '/' . $prefix  . $suffix ;
        }
    }
}