Select Code to Download

 
#!/usr/bin/perl
use strict;
...
  }
  $t->flush($fh,pretty_print => 'indented');
}

<result>
    <ip_address>10.10.10.10</ip_address>
...
    <u_ci_id>CI10110212</u_ci_id>
    <sys_class_name>cmdb_ci_linux_server</sys_class_name>
 </result>