#!/usr/bin/perl -w

use XML::Simple;
use Data::Dumper;


$xml =
' <file>
<cat1>
    <sub1>
        <sub-sub1/>
    </sub1>
</cat1>
<cat2/>
<cat3>
    <sub1/>
</cat3>
</file>
';
my $c = XMLin($xml);
# substitute filename for $xml here

print Dumper($c);
__END__