как узнать какой сигнал получен в perl?

Я написал простую программу для обработки некоторых сигналов. Моя программа:

#!/usr/bin/perl

use strict;
use warnings;

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signal_handler;

sub signal_handler
{

print " ".localtime()." Handled the signal\n";

};

while(1)
{
  sleep(1);
}

Какие сигналы указаны в хэше %SIG, который соответствует обработчику сигнала. будет вызываться в момент получения сигнала. Я объявил один обработчик сигналов для трех сигналов.

Я хочу узнать, какой сигнал получен.

В Cон выдаст номер сигнала по аргументам самого обработчика сигнала.

Пример,

   void sig_handler(int signo);

Я не знаю perl. Я пытаюсь найти это. Но я не нашел ответов.