sub handler {
    my $sig = shift;
    `echo $sig >> ~/scratch/testsig`;
    exit if grep /$sig/, qw/INT TERM KILL CHLD ABRT HUP QUIT/;
}

$SIG{$_} = \&handler foreach keys %SIG;

while(1){}