This code snippet will allow $var to be shared amongst threads:

use threads::shared;
my $var :shared;
[download]