print STDERR "\nNetwork $r[0], mask $r[1]\n";
my $scanner = new Nmap::Scanner;
my $results;
print STDERR "Start Scan\n";
eval{ $results = $scanner->scan("-v -sP $r[0]/$r[1]"); };
print STDERR "Error catched: $@\n" if($@);
print STDERR "Scan complete\n";