Select Code to Download

use threads;
use threads::shared;
...
my $thr = threads->create( \&worker );
...

use MCE::Hobo;
use MCE::Shared;
...
my $thr = MCE::Hobo->create( \&worker );
...

#!/usr/bin/perl

...
   return;
}