Example 9-3. examples/server/simple_echo_server.pl

#!/usr/bin/perl
use strict;
use warnings;

use lib 'lib';
use SimpleEchoServer;

SimpleEchoServer->run(port => 8000);

Example 9-4. examples/server/lib/SimpleEchoServer.pm

package SimpleEchoServer;
use warnings;
use strict;

use base 'Net::Server';
my $EOL   = "\r\n";

sub process_request {
    my $self = shift;
    while( my $line = <STDIN> ) {
        $line =~ s/\r?\n$//;
        print qq(You said "$line"$EOL);
        last if $line eq "bye";
    }
}

1;