foreach my $signame (split(' ', $Config{sig_name})) {
            if ($signum) {
                $SIG{$signame} = $signame =~ /^KILL|STOP$/
                    ? 'IGNORE'    # According to perldoc perlipc, they can be ignored, but not trapped
                    : sub {
                        $SIG{$signame} = 'DEFAULT';
                        print {$_} "\n\nCaught signal $signame at ",
                            timestampHMS, "\nCalled from:\n", callchain(3, 16), "\n\n"
                                for (shutdown_log_handle(), *STDOUT);

                        # We need a special handler for INT (i.e. control-C from command line), because
                        # the default action would not call the END handlers and hence not unregister
                        # the instance in the database. For other interrupts, we deliberatrely do NOT
                        # want it unregistered 
                        if ($signame eq 'INT') {
                            print {$_} "Turning into graceful exit\n"
                                for (shutdown_log_handle(), *STDOUT);
                            exit;
                        } else {
                            kill($signum, $$);    # proceed with normal handling of signal
                        }
                    };
            }
            ++$signum;
        }