# POSIX unmasks the sigprocmask properly
         my $sigset = POSIX::SigSet->new();
         my $action = POSIX::SigAction->new('sigHUP_handler',
                                            $sigset,
                                            &POSIX::SA_NODEFER);
         POSIX::sigaction(&POSIX::SIGHUP, $action);

         sub sigHUP_handler {
             print "got SIGHUP\n";
             exec($SELF, @ARGV) or die "Couldn't restart: $!\n";
         }