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