Select Code to Download

#!/bin/perl -w
use strict;
...

open(PF, "> out.xml") or die "can't open file $!\n";
$parser->root->print(\*PF);

<?xml version="1.0" encoding="ISO-8859-1"?>
<Config ASDisableNagle="false" AcceptAllContent="false" IISDisableNagl
+e="false" IgnoreDNSFailures="false" RefreshInterval="60" ResponseChun
+kSize="64">
...

   <Route ServerCluster="cl_app302_prod" UriGroup="event/event.war_URI
+s" VirtualHostGroup="foobarcom"/>
</Config>

<Config ASDisableNagle="false" AcceptAllContent="false" IISDisableNagl
+e="false" IgnoreDNSFailures="false" RefreshInterval="60" ResponseChun
+kSize="64">
    <Log LogLevel="Error" Name="/opt/IBMWebAS/logs/native.log"/>
...

   <Route ServerCluster="cl_app302_prod" UriGroup="event/event.war_URI
+s" VirtualHostGroup="foobarcom"/>
</Config>