use threads;
use IO::Socket;
my $so = new IO::Socket::INET(LocalPort => '1300',
                                 Proto => 'tcp',
                                Listen => 10,
                                 Reuse => 1,);

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


while (my $client = $so->accept()) {

 my $thread  = threads->create("start_thread");
 my $thread1  = threads->create("start_thread1");
 print $so "connected\n";
sub start_thread1 {
         while(my $get=<$client>){print "client : $get";}

    }
    sub start_thread {
        while(my $msg = <STDIN>){ print $so "$msg"; }
    }



$thread->join();
}