# client
  print SOCK length($msg) . "\n" . $msg;


  #server:
  chomp( $len = <SOCK> );
  read(SOCK, $msg, $len );