use Socket;

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

setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);

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

bind(SERVER, $addr) or die "Could not bind to port.\n";

listen(SERVER, SOMAXCONN) or die "Could not listen to port.\n";

while (accept(CLIENT, SERVER)) {
    print CLIENT "Hello from the server!\n";
}

close(SERVER);