my $results;
eval { $results = $scanner->scan("-v -sP $r[0]/$r[1]"); 1; } or warn "Error catched: $@";