Help for this page

Select Code to Download


  1. or download this
    for $i (keys %data) {
        push (@ips, $i); 
    ...
          push @names, $data{$ip}->{$port}->{cname};
       }
    }
    
  2. or download this
    # make %data
    
    ...
    print $q->header;
    print $q->escapeHTML(Dumper(\%data));
    exit;