Select Code to Download

Checking "devicename"... alive Use of uninitialized value in split at 
+script/ping2.pl line 74, <IN> line 17
Use of uninitialized value $NBTHost in string eq at script.ping2.pl li
+ne 76 <IN> . line 17
Not unique
Use of uninitialized value $NBTHost in concatenation <.> or string at 
+script/ping2.pl line 97, <IN> line 17.

#!/usr/bin/env perl
use warnings;
...
    else { return 0; }
}