Select Code to Download

$VAR1 = {
    'cmts' => {
...
                     }
                     ]
                 },

my $dsg_tags = $xst->{cmts}->{STBDSG}->{dsg};
for my $dsg (@$dsg_tags) {
...
    print "Value of tag2 :";
    print $dsg->{tag2}, "\n";
}

my $xst;        

...
    $xst = eval { $xs->XMLin($xml,KeyAttr=>1) };
    &printXMLErr($@) if($@);
}