my $response = $s->invoke("disk-list-info");

##</code><code>##

print $response;   
returns -  
NaElement=HASH(0x84b3408)

##</code><code>##

print Dumper($response)
returns - 
$VAR1 = bless( {
                 'content' => '',
                 'name' => 'results',
                 'children' => [
                                 bless( {
                                          'content' => '',
                                          'name' => 'disk-details',
                                          'children' => [
                                                          bless( {
                                                                   'content' => '',
                                                                   'name' => 'disk-detail-info',
                                                                   'children' => [
                                                                                   bless( {
                                                                                            'content' => '0b.29',
                                                                                            'name' => 'name',
                                                                                            'children' => [],
                                                                                            'attrvals' => [],
                                                                                            'attrkeys' => []
                                                                                          }, 'NaElement' ),
                                                                                   bless( {
                                                                                            'content' => '20000011:C6C99699:00000000:00000000:00000000:00000000:00000000:00000000:00000000:00000000',
                                                                                            'name' => 'disk-uid',
                                                                                            'children' => [],
                                                                                            'attrvals' => [],
                                                                                            'attrkeys' => []
                                                                                          }, 'NaElement' ),
                                                                                   bless( {
                                                                                            'content' => '13',
                                                                                            'name' => 'bay',
........................

##</code><code>##

$xmldoc = XMLin($response); - This errors out with - 

read on filehandle failed: Can't locate object method "read" via package "NaElement" at /usr/lib/perl5/XML/LibXML.pm line 531. at /usr/lib/perl5/XML/LibXML/SAX.pm line 64
 at /usr/share/perl5/XML/Simple.pm line 295

##</code><code>##

XMLin(\%response) - same error. \