# i added 
use Encoding qw(encode decode);
# and in sub foo i decoded the things from File::Find. eg
sub foo {
    $file_name = decode("UTF-8", $_);
}
# cheers!