Select Code to Download

    print $socket $chat[$i], $EOL if ( $1 ne $ID && $2 ne $kill);

    push @chat, "$self->{ID}\t$1";

    foreach ( @chat[$E{$ID} .. $#chat] ) {
        # spilt into ID and incomming line
...
        # send only line
        print $socket $2,$EOL if ( $1 ne $ID && $2 ne $kill);
    }

    print $socket $2,$EOL if ( $2 ne $kill );

    g o o l y @ g m x . a t