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

package Server;

use strict;
use base qw(Net::Server::Fork);

my $server = bless {
                    server => {
                               port => 8097,
                               log_level => 4,
                              },
                   }, 'Server';
$server->run();
exit;

sub process_request {
    my $self = shift;

    my $x = Feeder->new();
    my $line = $x->get_line();
    print "Line = $line\n";
}

package Feeder;

use strict;
use IO::Pipe;

sub new {
    my $class = shift;

    my $pipe = IO::Pipe->new();
    $pipe->reader('cat', '/home/ben/foo/client');
    my $self = {
                PIPE => $pipe,
               };
    return bless $self, $class;
}

sub get_line {
    my $self = shift;

    my $fh = $self->{PIPE};
    return scalar(<$fh>);
}