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();