Select Code to Download

my($dev) = $devinfo->findnodes('./dev_name');

my @found_devices = $devinfo->findnodes('./dev_name');
warn "Found " . scalar(@found_devices);
my $dev = $found_devices[0];