Select Code to Download

use XML::Simple qw( :strict XMLin );

...
      say "   $ip";
   }
}

use XML::LibXML qw( );

...
      say "   ".$ip->textContent;
   }
}