while (<STDIN>) {
  chomp;
  print $socket $_ . CRLF;
}