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