Select Code to Download

#!/usr/bin/perl -w

...

 $r->print($page_content);
}

<xml>
<section section_id=1 section_name="root" section_title="iordy.com -> 
+root">
...
 </section>
</section>
</xml>