require XML::LibXML::PrettyPrint;
XML::LibXML::PrettyPrint
    -> new( element => {inline=>['name']} )
    -> pretty_print($doc)
    -> toFile($file);