use Socket;

my $port = shift || 7001;
my $proto = getprotobyname('tcp');
my $server = "localhost";

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) or die "Can't set socket option to SO_REUSEADDR $!\n";

bind( SOCKET, pack_sockaddr_in($port, inet_aton($server))) or die "Can't bind to port $port! \n";

listen(SOCKET, 5) or die "listen: $!";

my $client_addr;
while ($client_addr = accept(NEW_SOCKET, SOCKET)) {
  send(NEW_SOCKET,"Hello",0);
  close NEW_SOCKET;
}

##</code><code>##

use Socket;

my $host = shift || 'localhost';
my $port = shift || 7001;
my $server = "localhost";

socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2]) or die "Can't create a socket $!\n";

connect( SOCKET, pack_sockaddr_in($port, inet_aton($server))) or die "Can't connect to port $port! \n";

my $line;
my $val;
my $p;
my $iaddr;

$line = recv(SOCKET,$val,5,0);
($p, $iaddr) = sockaddr_in($line);

if(defined $line){
 print "$val from $iaddr\n";
}
close SOCKET or die "close: $!";