my $sigset = POSIX::SigSet->new();
my $action = POSIX::SigAction->new(
                     \&sigHUP_handler, $sigset, &POSIX::SA_NODEFER );
POSIX::sigaction(&POSIX::SIGHUP, $action);