#!/usr/bin/env perl

# use module
use XML::Simple;
use Data::Dumper;

# create object
$xml = new XML::Simple;

# read XML file
$xmlData = $xml->XMLin("./xuo.xml", forcearray => 1);

# print output
# print Dumper($data);

my $main_target = '' ;
my $target = '' ;
my $sub_target = '' ;
my $main_target_name = '' ;
my $target_name = '' ;

foreach $main_target (@{$xmlData->{main_target}})
{
    $main_target_name = @{$main_target->{main_target_name}}[0] ;
    print "Main Target Name : ", $main_target_name, "\n" ;
    foreach $target (@{$main_target->{target}})
    {
	$target_name = @{$target->{target_name}}[0] ;
        print "    Target Name : ", $target_name, "\n";
# 	if (exists $main_target->{target}->{sub_target})
#         {
            foreach $sub_target (@{$main_target->{target}->{sub_target}})
	    {
		print "	Sub Target Name : ", $sub_target, "\n";
            }
#         }
    }
}

exit ;