Help for this page
use Nmap::Scanner; use Data::Dumper; my $scanner = new Nmap::Scanner; ... print Dumper($results->{'ALLHOSTS'});
for my $key (keys $results->{'ALLHOSTS'}){ print Dumper($results->{'ALLHOSTS'}{$key}->{'ports'}); }