print $socket ...
readline $socket;

##</code><code>##

writable {
   syswrite ...
readable {
   sysread ...
}}