Help for this page

Select Code to Download

Select or download this

    while ( my $line = <IN> ) {
        if ( $client->connected ) {
            print $client $line;
        }
    }