# Perl server

#!/usr/bin/perl -w

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

local $| = 1;
my $ID;
my $PW;
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();
print $client "ID:";
$ID = <$client>;
print "I received $ID\n";


##</code><code>##

#Perl client.

#!/usr/bin/perl -w

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

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

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

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

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

my $data = <$client>;
print $data;
chomp( $ID = <$client> );
print $client $ID;