Select Code to Download

# in your initialization...
my %subnets;
...
{ 
   print "FAIL\n";
}

open(SUBNET, "<subnets.list") 
    or die "Couldn't open subnets.list for reading, error $!\n";
...
else {
    print "FAIL\n";
}