print Dumper ( $xst->{cmts}{STBDSG}{dsg} );
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0] );
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0]{tag1} );

##</code><code>##

$VAR1 = [
          {}
        ];
$VAR1 = {};
$VAR1 = undef;

##</code><code>##

my $xst;        

if((not defined $xml) or ($xml =~ m/read\stimeout/i)){
    &printXMLErr('request timed out');
} else {
    my $xs = XML::Simple->new();
    $xst = eval { $xs->XMLin($xml,KeyAttr=>1) };
    &printXMLErr($@) if($@);
}