Select Code to Download

my $indb = retrieve('input_hash.perl.db');
my $copydb = shared_clone( $indb );
...
my $thr1 = threads->new(\&thrd_run, $copydb);

..