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