sub catch_zap {
        my $signame = shift;
        die "Somebody sent me a SIG$signame";
    }
    $SIG{INT} = \&catch_zap;