Select Code to Download

use threads;
use trheads::shared;
...
## But also the contents of the original hash will have been silently 
+discarded
print Dumper \%d;
$VAR1 = {};

our %planets : shared;
our $response = SomeClass::TCP_IP_Response->new(@some_arguments);
...
   $planets{$some_id} = \%el;

}