if ( $client->can_write ) { 
  syswrite( $fh, "$data\n" );
}