Help for this page
if (<$sock>) { print; }
while (<$sock>) { print; }
while (<$sock>) { print $sock $request; print; }
use strict; use IO::Socket; ... } } }