my $emptySigSet = POSIX::SigSet->new();
 my $oldSigSet = POSIX::SigSet->new();
 POSIX::sigprocmask( &POSIX::SIG_BLOCK, $emptySigSet, $oldSigSet );

 if ( $oldSigSet->ismember( &POSIX::SIGHUP ) ){
     print "SIGHUP is blocking.\n";
 }else {
     print "SIGHUP is not blocking.\n";
 }

##</code><code>##

 sub hupMain {

     while (1) {
         print "Running hup main function.\n";
         sleep 3;
         my $pendingSigSet = POSIX::SigSet->new();
         POSIX::sigpending( $pendingSigSet ) ;
         if ( $pendingSigSet->ismember( &POSIX::SIGHUP ) ){
             print "Pending signal set contains SIG_HUP\n";
         }
     }
 }