#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data::Dumper;

local $/;
open(H,'subcontent2.xml') or die $!;
my $wholefile =<H>;
close(H);

my $xmlref = XMLin($wholefile, ForceArray=>['topic']);
foreach(keys %{$xmlref->{'HEAD'}}){
    if (!$xmlref->{HEAD}->{$_}->{Subcategories}->{category}){
	print qq|GENERAL URL($_): | . $xmlref->{HEAD}->{$_}->{Url} . qq|\n|;
    }
    else
    {
	foreach my $cat($xmlref->{HEAD}->{$_}->{Subcategories}->{category}){
	    for (keys %$cat){
                    print qq|CATEGORY URL($_): | .  $cat->{$_}->{Url} . qq|\n|;
                    foreach my $topics ( values %{$cat->{$_}->{topics}}){
			foreach(keys %{$topics}){
			    print qq|TOPIC URL($_): | . $topics->{$_}->{Url} . qq|\n|;
			    }

                     }
			 }
        }
    }
}
#print Dumper $xmlref;

1;