# 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";