sub catch_zap {
               my $signame = shift;
               $shucks++;
               die "Somebody sent me a SIG$signame";
           }
           $SIG{INT} = ’catch_zap’;  # could fail in modules
           $SIG{INT} = \&catch_zap;  # best strategy