sub Send {
   my($client,$message) = @_;
   print $client "$message";
}