$data= ???

...
print $socket $data;