Show given signal.

trap.pl

#!/usr/bin/perl

use strict;
use warnings;

my @signals = map { uc } split /\s+/, qx{/bin/kill -l};

$SIG{$_} = sub {
    my $signal = shift;
    print "signal=$signal\n";
} for @signals;

sleep 30;

exit;