#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket qw/:DEFAULT :crlf/;
use FileHandle;

use 5.014;

my $port = 6699;
my $server = IO::Socket::INET->new( Proto       => 'tcp',
                                    LocalHost   => 'localhost',
                                    LocalPort   => $port,
                                    Listen      => 1,
                                    Reuse       => 1);
die "Server setup failed: $!" unless $server;

say "starting on port: $port...";

while (my $client = $server->accept()) {
    print $client "ready$CRLF";
    local $/ = LF;  # Be robust about accepting LF or CRLF endings on input
    CLIENT: while (<$client>) {
        s/$CR?$LF//;    # chomp CRLF or LF
        say "Client request: `$_'";
        for ($_) {
            print $client "help!$CRLF" when /^help/;
            last CLIENT                when 'quit';
        }
    }
    say "Disconnected";
}