use Socket;

socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

$addr = sockaddr_in(2336, inet_aton('server.com'));

connect(SERVER, $addr) or die "Could not connect.\n";

print SERVER "Hello from the client!\n";

close(SERVER);