my $results = $scanner->scan();
 
my $host_list = $results->get_host_list;
 
while ( my $host = $host_list->get_next ) {
	my $port_list = $host->get_tcp_port_list;
	my %report;
	while ( my $number = $port_list->get_next ) {
		my $port = $host->get_tcp_port( $number );
		$report{ $port->service->name } = $port->state;
	}
}