#!/usr/bin/perl
use strict;
use warnings;
use threads;

use IO::Socket;

my $server = IO::Socket::INET->new(LocalPort => 1300,
                                   Proto     => 'tcp',
                                   Listen    => 10,
                                   Reuse     => 1);
                     
die "Failed to create socket: $!\n" unless $server;
my $client;

sub listen_to_client {
        while (my $get = <$client>) {
                print "client: $get";
        };
        print "Client closed\n";        
}

while ($client = $server->accept()) {
        print "Client connected\n";
        threads->create("listen_to_client");
}