UNIX Desktop Questions & Answers

server_address.sin_family = AF_INET;
server_address.sin_addr.s_addr = htonl(INADDR_ANY);
bind(sock, (struct sockaddr *) &server_address, sizeof(server_address))

my $proto = getprotobyname('tcp');

socket(Server, PF_INET, SOCK_STREAM, $proto)               || die "socket: $!";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) || die "setsockopt: $!";
bind(Server, sockaddr_in($lport, INADDR_ANY))              || die "bind: $!";
listen(Server,SOMAXCONN)                                   || die "listen: $!";