Select Code to Download

my $doc = $xs1->XMLin($file, forcearray => 1, keyattr => {client_syste
+m => 'Customer Care'});

$VAR1 = {
    'client_system' => [
...
.
.
.

my $doc = $xs1->XMLin($file, forcearray => 1, keyattr => {client_syste
+m => 'Customer Care'});

...
        print $doc->{client_system}[$key]->{component}[0]->{component_
+lib}[0]->{class_set}[0]->{base_class_set[0]->{interval}{'range'}, "\n
+";
    }
}