shutdown SOCK, 1;
my $data = (<SOCK>); 
print "result->$data\n";