A server and a client
The server send message to the client and the client print that message.
Server:
Code:
#!/usr/bin/perl
use strict;
use Socket;
# use port 5700 as default
my $port = shift || 5700;
my $proto = getprotobyname('tcp');
# create a socket, make it reusable
socket(SERVER, PF_INET, SOCK_STREAM, $proto)
Leave a comment: