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

use threads;
use IO::Socket;
my $so = new IO::Socket::INET(   PeerAddr => '127.0.0.1',
                                 PeerPort => 1300,
                                 Proto => 'tcp',
                                 Reuse => 1,);

die "Socket Error: $!\n" unless $so;

   my $thread  = threads->create(\&start_thread);
     my $thread1  = threads->create(\&start_thread1);

sub start_thread {
        print "thread\n";
        while (my $txt=<$so>) {
                print "server : $txt";
        }
        print "endthread\n";
}

sub start_thread1 {
        print "thread1\n";
        print $so "Client connected!\n";
        while (my $msg = <STDIN>) {
                print $so "$msg";
        }
        print $so "Client disconnected!\n";
        print "thread1end\n";
}

$thread->join();
$thread1->join();