Help for this page
my $doc = $parser->parsefile("$srcdir/$_"); my $output = $parser->toString; open(my $out, ">:utf8", "$dstdir/$_") or die "..."; print $out $output; close($out);