Select Code to Download

use strict;
use warnings;
...
   print join(' ', @{ $nic->{DNSServerSearchOrder} } ), "\n" if $nic->
+{DNSServerSearchOrder};
}
exit 0;

00:11:2F:41:E5:CE
10.0.127.254
10.4.0.3
10.1.0.7
10.1.0.8 10.1.0.7