Select Code to Download

  $pm->run_on_finish(
    sub { my ($pid, $exit_code, $ident) = @_;
...
        "with PID $pid and exit code: $exit_code\n";
    }
  );

$thr4 = threads->new(\&processor);
$thr4->detach;
...
     sleep(1);
     #$pm->wait_all_children;
}

sub processor{
    my @row;
...
      #$pm->wait_all_children;
    }    
}