Next Welcome to my ~/bin 74

`printd`

        sub mainloop {
         MAINLOOP:
          while (1) {
            sleep ($NEXTOP - time()) while $NEXTOP > time();
            %CONF = load_conf($CONFIG);
            my @QUEUE = read_spoold($CONF{spooldir});

            if (@QUEUE == 0) {          # empty queue
        #      $NEXTOP = time() + 2;     # try again in two seconds
        #      next;

As you can see, I have not made up my mind about what it should do here

continued...