#Before writting on the socket
$sock->autoflush(); # so output gets there right away

##</code><code>##

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

##</code><code>##

#when done writting to the socket
close($sock);