>[оверквотинг удален]
>файл много раз в цикле.
> open FILE, "<$FILE";
> while ( sleep 1 ) {
>        while ( $fromparent=<FILE>) {
>   print $client "$fromparent\x1B[0;32m";
>  }
> }
>"sleep 1" очень замедляет реакцию программы.
>Если "sleep" убрать, то процессор грузится на 100%, а это не приемлемо.
>

1) перенаправить вывод программы не в файл, а на stdin твоего скрипта (или воспользоваться tee)
2) ммм скаежм tail снимать конец файла и ловить на stdin
   tail -n 0 -f file > you_script (както так)
   но встает бааальшой вопрос - как завершить прогу?

>[оверквотинг удален]
>файл много раз в цикле.
> open FILE, "<$FILE";
> while ( sleep 1 ) {
>        while ( $fromparent=<FILE>) {
>   print $client "$fromparent\x1B[0;32m";
>  }
> }
>"sleep 1" очень замедляет реакцию программы.
>Если "sleep" убрать, то процессор грузится на 100%, а это не приемлемо.
>

может быть inotify или dnotify (я не помню кто из них кого заменил) вам поможет.

>[оверквотинг удален]
>файл много раз в цикле.
> open FILE, "<$FILE";
> while ( sleep 1 ) {
>        while ( $fromparent=<FILE>) {
>   print $client "$fromparent\x1B[0;32m";
>  }
> }
>"sleep 1" очень замедляет реакцию программы.
>Если "sleep" убрать, то процессор грузится на 100%, а это не приемлемо.
>

Можешь использовать Multiplexed I/O, т.е. select, poll, epoll, kqueue... Вот пример из книги Роберта Лава с select (вместо STDIN_FILENO может быть любой другой файловый дескриптор):

#include  <stdio.h>
#include  <sys/time.h>
#include  <sys/types.h>
#include  <unistd.h>

#define TIMEOUT 5        /* select timeout in seconds */
#define BUF_LEN 1024     /* read buffer in bytes */

int main (void)
{
    struct timeval tv;
    fd_set readfds;
    int ret;
    
    /* Wait on stdin for input. */
    FD_ZERO(&readfds);
    FD_SET(STDIN_FILENO, &readfds);
    
    /* Wait up to five seconds. */
    tv.tv_sec = TIMEOUT;
    tv.tv_usec = 0;
    
    /* All right, now block! */
    ret = select (STDIN_FILENO + 1,
                 &readfds,
                 NULL,
                 NULL,
                 &tv);
    
    if (ret == -1) {
           perror ("select");
           return 1;
    } else if (!ret) {
           printf ("%d seconds elapsed.\n", TIMEOUT);
           return 0;
    }
    
    /*
    * Is our file descriptor ready to read?
    * (It must be, as it was the only fd that
    * we provided and the call returned
    * nonzero, but we will humor ourselves.)
    */
    if (FD_ISSET(STDIN_FILENO, &readfds)) {
           char buf[BUF_LEN+1];
           int len;
           /* guaranteed to not block */
           len = read (STDIN_FILENO, buf, BUF_LEN);
           if (len == -1) {
                    perror ("read");
                    return 1;
           }
           if (len) {
                    buf[len] = '\0';
                    printf ("read: %s\n", buf);
           }
           return 0;
    }
    fprintf (stderr, "This should not happen!\n");
    return 1;
}