use Socket qw(:DEFAULT :crlf);
print SOCKET "Hi there, client!$CRLF"      # right