- or download this
threads;
threads::shared;
- or download this
our $D = threads->new(\&Darling::run, ID => 'Darling' );
$D->detach();
...
...
}
- or download this
$SIG{KILL} = 'mumsDeath';
$SIG{TERM} = 'mumsDeath';
sub mumsDeath {$D->kill('KILL'); print "killing my darling\n";}
- or download this
package Darling;
use threads;
...
print "."
}
}