RTTVAR has grown to over 2.3 seconds, decreasing to 2.0
##

#!/usr/bin/perl

use warnings;
use strict;
use DBI;
use Nmap::Scanner;

my $sth = $dbh->prepare("Some valid SQL");
$sth->execute();

while(my @r = $sth->fetchrow_array()) {
	print STDERR "Scan network $r[0], mask $r[1]\n";
	my $scanner = new Nmap::Scanner;
	$scanner->max_rtt_timeout(10000);
	$scanner->min_rtt_timeout(1000);
	$scanner->host_timeout(5000);
	$scanner->max_parallelism(8);
	my $results = $scanner->scan("-v -sP $r[0]/$r[1]");
	print STDERR "Scan completed\n";

	my $hsts = $results->get_host_list();
	while(my $host = $hsts->get_next()) {
		# Do stuff for each ...
	}
}

exit 0;