use threads::shared;
my $status : shared;