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

use IO::Socket;
use strict;
use Thread;

my $listen = new Thread \&listen_sub;
my $write  = new Thread \&write_sub;

print "welcome to kenix - perl version - by sam\n";

# socket creation
print "--- connection in process ... ";
my $server = new IO::Socket::INET->new(
				       PeerPort => 15005,
				       PeerAddr => '127.0.0.1',
				       Type => SOCK_STREAM,
				       Proto => 'tcp')
    or die "can't connect to server : $@\n";
print "connected\n";

# thread sub routines

# listen one
sub listen_sub {
    while(my $reponse=<$server>) {
	print ":$reponse";
    }
}

# write one
sub write_sub {
    while (my $ligne = <STDIN>) {
	print $server "$ligne";
    }
}

# writed by sam <sam@nova-mag.org>