while (defined (my $key = each %SIG)){
    my $foo = $key; # for closures
    $SIG{$foo} = sub { print "I am SIG$foo\n" };
}
[download]

See which signal is sent when you to ^Z, if at all. Perhaps sleep x, or <STDIN> for blocking would be useful.

Only tested with SIGALRM as I have no kill or /bin/kill... *sob*

Update: Fixed HTML entities for STDIN

Update 2: Appearantly it's $SIG{TSTP}

-nuffin
zz zZ Z Z #!perl