$SIG{INT} = sub { die "Caught a INT $!" };
$SIG{ABRT} = sub { die "Caught a SIGABRT $!" };
$SIG{FPE} = sub { die "Caught a SIGFPE $!" };
$SIG{ILL} = sub { die "Caught a SIGILL $!" };
$SIG{INT} = sub { die "Caught a SIGINT $!" };
$SIG{SEGV} = sub { die "Caught a SIGSEGV $!" };
$SIG{TERM} = sub { die "Caught a SIGTERM $!" };