Select Code to Download

use threads;
use threads::shared;
use Thread::Running;

sub search {

...
    };

}

share(%results);

threads->create(\&search, $foo, $bar);