open( my $out, '>pretty.xml') or die "can't open pretty.xml: $!"; # perl 5.6.*