Select Code to Download

  <overview execute_time="2012/08/30-10:38" xml_version="01-50-02" too
+l_version="01-50-02" save_time="2012/08/30-10:37" dkc_type="RAID600" 
+micro_version="60-08-11-00/00" dkc_serial="17353" /> 
 <host_grps number_of_ports="32">
...
  </host_grp>
  </port>
...

my $ref = XMLin('host_grp.xml', KeyAttr => { host_grps => 'port',  por
+t => "port_id", host_grp => "host_grp_id" }, ForceArray => 'host_grp_
+id' );

$VAR1 = {
          'overview' => [
...
                                                            },
                                                'number_of_host_grps' 
+=> '2'
                                              },

my $ref = XMLin('host_grp.xml', KeyAttr => { host_grps => 'port',  por
+t => "port_id", host_grp => "host_grp_id" } );

$VAR1 = {
          'overview' => {
...
                                            },