Help for this page

Select Code to Download

Select or download this

 my $ip = new NetAddr::IP($address_given);
 my %nets;
...
 foreach  my $k (keys %nets){

        if ($ip->within($nets{$k})) {