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

use strict 'refs';
use strict 'subs';
use diagnostics;
use strict;        
use sigtrap;
use IO::Select;
use IO::Socket::INET;

$| = 1;                      ### Enable Autoflushing of I/O.

my $sock = new IO::Socket::INET (
                                LocalAddr => localhost, 
                                LocalPort => 1000, 
                                Proto => 'tcp',
                                Listen => 5,
                                Reuse => 1,
                                );
die "Could not create socket\n" unless $sock;

   
my $buf = ' ';
my $buffer = ' ';
my $new_sock;

while ($new_sock = $sock->accept()) 
{
    while (defined ($buf = <$new_sock>)) 
    {
       if ($buf eq "\"END\"")
       {
           close ($sock); 
       } 
       else
       {
           print $buf;
           $buffer .= $buf; 
       }
    }
}
print "$buffer \n";