print $socket ...
readline $socket;