sub worker {
    my $tid = threads->tid();
	local $SIG{__DIE__} = sub{ $ThreadStatus{$tid} = 'died'; };
...