Select Code to Download

for $i (keys %data) {
    push (@ips, $i); 
...
      push @names, $data{$ip}->{$port}->{cname};
   }
}

# make %data

...
print $q->header;
print $q->escapeHTML(Dumper(\%data));
exit;