sub kill_handler {
    open(my $theend, ">", ABORTED");
    close($theend);
}

$SIG{'ABRT2'} = 'kill_handler';
$SIG{'ILL2'} = 'kill_handler';