while($line = <SOCK>)
##</code><code>##

$| = 1; # remove buffering
while($input = <STDIN>){
    # maybe process the input
    print $input;
}