use strict;
use warnings;

use XML::LibXML;

  my $parser = XML::LibXML->new;
  open my $fh, "dHarry.xml";
  binmode $fh; # drop all PerlIO layers possibly created by a use open pragma
  my $doc = $parser->parse_fh($fh);
  open my $out, "out.xml";
  binmode $fh; # as above
  $doc->toFh($fh);
  # or
  print $fh $doc->toString();


##</code><code>##

Can't load 'C:/Perl/site/lib/auto/XML/LibXML/LibXML.dll' for module XML::LibXML: load_file:The specified procedure could not be found at C:/Perl/lib/DynaLoader.pm line 230.
 at C:/Perl/site/lib/XML/LibXML.pm line 116
BEGIN failed--compilation aborted at C:/Perl/site/lib/XML/LibXML.pm line 116.
Compilation failed in require at C:/workspace/XML/test_LibXML.pl line 4.
BEGIN failed--compilation aborted at C:/workspace/XML/test_LibXML.pl line 4.