Trivial Utilities

`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...