Select Code to Download

use threads;
use threads::shared;
...
$hash{a} = \$svar   # okay - a reference to a shared variable
$hash{a} = \$var    # This will die
delete $hash{a}     # okay - all threads will see !exists($hash{a})

use strict;
use warnings;
...
</Update>
$thr1->join();
print $foo->{args}[0];