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

use strict;

use IO::Socket;

my $sock = IO::Socket::INET->new(Listen => 1,
                                 LocalAddr => 'localhost',
                                 LocalPort => 43546,
                                 Proto => 'tcp',
                                 Reuse => 1,
                                );

my $NL = "\015\012";

while (my $client = $sock->accept()) {
    print $client "Hello.  To close connection, type quit$NL";
    while (<$client>) {
        tr/\015\012//d;
        print "Client said $_\n";
        print $client "You said $_$NL";
        last if /^quit/i;
    }
    print "Client quit.\n";
    print $client "Bye!$NL";
    close $client;
}