$srcdir="d:\\perl\\source\\test";  
if(Encode::is_utf8($srcdir) ){    
 	print " src is_utf8\n";
}else{ 
	print " src is_NOT_utf8\n";
}
# I got "src is_NOT_utf8",  I heared Perl use UTF8 internal. but it seems that's not so simple.