Help for this page
while($line = <SOCK>)
$| = 1; # remove buffering while($input = <STDIN>){ # maybe process the input print $input; }