# Perl client
#!/usr/bin/perl -w

use strict;
use IO::Socket::INET;

local $| = 1;
my $host = '127.0.0.1';
my $port = 8500;

my $client = new IO::Socket::INET(

   PeerAddr  => $host,
   PeerPort  => $port,
   Proto     => 'tcp',
   Type      => SOCK_STREAM,

   ) or die "Couldn't create client : $!\n";

##</code><code>##

#Perl server
#!/usr/bin/perl -w

use strict;
use IO::Socket::INET;

local $| = 1;
my $response;
my $port = 8500;
my $client;
my $server = new IO::Socket::INET(

             LocalPort => $port,
             Type      => SOCK_STREAM,
             Listen    => 5,
             Proto     => 'tcp',
             Reuse     => 1,


  ) or die "Couldn't construct server on port: $port : $!\n";

$client = $server->accept();
$response = <$client>;
chomp $response;