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