#when writting $data to the socket
print $sock $data . "\015\012";