inetd bi-communication

Hello,

    I'm aware that this is very likely not the correct mail listing but 
since it's network related I hope someone in this group might be willing to 
help me with my problem.

I'm trying to make an inetd perl server to communicate with a perl client. 
Communication from client to server is working but not from server to 
client. As I understand inetd handles the socket, bind, listen and accept 
stuff and basically you can communicate between server and client using 
STDIN and STDOUT. But it's not working and I'm lacking some knowledge. I've 
read chapter 6 of Programming Perl and chapter 12 of Advanced Programming 
but they just don't seem to have the answer I'm looking for.

Is there anybody who can help me and get me going again?

Thanks Henk

==/etc/services======================================================
psad            1200/tcp                        # Test perl inetd daemon
==/etc/inetd.conf ====================================================
psad  stream  tcp    nowait  root    /tmp/server.prl

==server.prl========================================================
#!/usr/bin/perl

open (OUTFILE, ">/tmp/effe1");  # Open output file
select(OUTFILE); $|++;          # Unbuffered output OUTFILE
select(STDOUT); $|++;           # Unbuffered output STDOUT

while (<STDIN>) {
    print OUTFILE $_;           # Write client lines to OUTFILE
}

print "Output for standard out\n";      # Send lind to client
close (OUTFILE);                        # Close output file

==client.prl==========================================================
#!/usr/bin/perl

use IO::Socket;

# Setup connection to server , for now on same host
$sock = IO::Socket::INET->new(  PeerAddr    => 'localhost',
                                PeerPort    => 1200,
                                Proto       => 'tcp',
                             );
unless ($sock) {die "Socket could not be created, Reason: $!"}

foreach (1..100) {
    print $sock "Line $_\n";    # Send lines to server
}

# Hope to receive output from server and store in file
open (OUTFILE, ">/tmp/effe2") || die "can't open outfile $!";
$a = <STDIN>;
print OUTFILE $a;

close (OUTFILE);        # Close output file
close ($sock);          # Close connection

_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com