Select Code to Download

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