my $fname = "/home/test/myxml/out.xml"; # oder anderes Verzeichnis
open (my $out, '>', $fname) or die $!;
binmode $out; # as above
print $fh $doc;
close $fh or die $!;