use threads;
use threads::shared;
my $var : shared;