#!/usr/bin/perl -w

#Server

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

my $local_port = 5050; #Define a port

my $server = IO::Socket::INET->new(
	LocalPort => $local_port,
	Reuse	 => 1,
	Listen	=> SOMAXCONN,
	Type	  => SOCK_STREAM)
	|| die "Can't start server on $local_port -> @!\n";

my $client = undef;
my $user = undef;
my $file = undef;
print "accepting connections...\n";
while($client = $server->accept())
{ $client->autoflush(1);
  my $line = undef;
  if(defined($line = <$client>))
  { print "received :", $line;
    print $client "nevermore";
  }
  close($client);
}

close($server);