use Encode;
    open(OUT,">$outfile");
    binmode OUT, ':encoding(utf-8)';
    print OUT $Doc->{Content}->{Text};
    close OUT;