Select Code to Download

my $results;
eval{ $results = $scanner->scan("-v -sP $r[0]/$r[1]"); };
print STDERR "Error catched: $@\n" if($@);