Select Code to Download

   threads;
   threads::shared;

   our $D = threads->new(\&Darling::run, ID => 'Darling' );
   $D->detach();
...
...
}

$SIG{KILL} = 'mumsDeath';
$SIG{TERM} = 'mumsDeath';
sub mumsDeath {$D->kill('KILL'); print "killing my darling\n";}

package Darling;
use threads;
...
      print "."
   } 
}