#!/usr/bin/perl
use warnings;
use strict;

sub handler_universal
{
  print "\ngot a signal $_[0]\n";
    $SIG{$_[0]} = \&handler_universal;
    }

my @nami = keys(%SIG);
#foreach( @nami){ print "$_\t$SIG{$_}\n"; }

while(1){
for my $namesig (@nami) {$SIG{$namesig} = \&handler_universal;}
}