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";
         }
     }
 }