Select Code to Download

#!/usr/bin/perl
use strict;
...
  }
}
print Dumper \@add,\@updateIP,\@updateName;

# read XML template
my $xml = XML::Twig->new->parse( \*DATA );
...
<device name="example">
  <ipaddress>0.0.0.0</ipaddress>
</device>