Select Code to Download

           sub catch_zap {
               my $signame = shift;
...
           }
           $SIG{INT} = ’catch_zap’;  # could fail in modules
           $SIG{INT} = \&catch_zap;  # best strategy

$SIG{'INT'}  = \&sigint_catcher;