print $sock $line,"\n"; #out tcp 
print $sock "$line\n"; #out tcp