#!/usr/bin/perl -w

use XML::Simple;
# qw(:strict);

my $ref = XMLin("xmlTest3.xml", forcearray=>1, keyattr=>{wrapper=>"name"});
my $wrapName = "testName 1.0.3";
print "$ref->{wrapper}->{$wrapName}->{script}\n";
print "$ref->{wrapper}->{$wrapName}->{envVar}->[0]->{value}\n";

# How do I enumerate the contents of the tags such as envVar and parm?
# The following only gives me an address to the array.
foreach my $pName ($ref->{wrapper}->{$wrapName}->{envVar}) {
    print $pName;
}

##</code><code>##

<config>
	<wrapper name="testName 1.0.3" script="/usr/people/ltorvalds/wrapper.pl" app="/usr/bin/testApp.exe">
		<envVar name="TMPDIR" value="/usr/tmp"/>
		<envVar name="TEMPDIR" value="/usr/tmp"/>
		<parm name="pad" value="4"/>
		<parm name="me" value="0"/>
		<parm name="mf" value="0"/>
		<parm name="s" value="\$startFrame"/>
		<parm name="e" value="\$endFrame"/>
		<parm name="b" value="\$byFrame"/>
		<parm name="im" value="\$cacheDir\$qmJob.\$suffix"/>
		<parm name="of" value="\$fileExt"/>
	</wrapper>
	<wrapper name="testName2" script="/usr/people/wgates/wrapper2.pl" engine="/usr/bin/testApp2.exe">
		<envVar name="MAYA_LOCATION" value="\$appPath"/>
		<envVar name="MAYA_SCRIPT_PATH" value="/data/render_common/scripts"/>
		<envVar name="TMPDIR" value="/usr/tmp"/>
		<envVar name="TEMPDIR" value="/usr/tmp"/>
		<parm name="pad" value="4"/>
		<parm name="me" value="0"/>
		<parm name="mf" value="0"/>
		<parm name="s" value="\$startFrame"/>
		<parm name="e" value="\$endFrame"/>
		<parm name="b" value="\$byFrame"/>
		<parm name="im" value="\$cacheDir\$qmJob.\$suffix"/>
		<parm name="of" value="\$fileExt"/>
	</wrapper>
</config>