#!d:\perl\bin\perl.exe -w
use File::Find;
use strict;
use Encode qw(encode_utf8 decode_utf8 is_utf8);
use XML::Simple;

my $configfile=".\\config.xml";
my $config=XMLin($configfile); 

my $srcdir="d:\\temp\\source\\test2";
print "\$srcdir: $srcdir\n";
if(is_utf8($srcdir)){
    print "is utf8\n";
}else{
    print "is NOT utf8\n";
    $srcdir=decode_utf8($srcdir); # ???
}

# line "!!!" get srcdir from xml  
# or you can comment it to test
# wether line "???" take any effect or not 

$srcdir=$$config{'srcdir'}; # !!!

if(is_utf8($srcdir)){
    print "is utf8\n";
}else{
    print "is NOT utf8\n";
}


{
  local ${^WIDE_SYSTEM_CALLS} = 1;
  finddepth( \&showme, $srcdir );
}

sub fixutf8 {
  for (@_) {
    if (${^WIDE_SYSTEM_CALLS} && !is_utf8($_)) {
      $_ = decode_utf8($_); 
    }
  }
}
sub showme {
  print "\$_ = $_\n";
  fixutf8($File::Find::dir,$File::Find::name,$_);
  print "\$_ = $_\n";
}