my $t = threads->create (sub{
## You run your thread function here
&$functions_name(@parameters);
## And when it has completed -- if it ever does --
## You set up a signal handler ...
$SIG{KILL} = sub {
print "\ngot to thread killer\n\n";
threads->exit();
};
print "\ngot to end of thread\n\n";
#$shutdown = 1;
## and then exit the thread.
});
####
sleep until $shutdown;
##
##
if ($_ != $$){
$_->kill('KILL')->detach;
}