#!/usr/bin/perl
use IO::Socket::INET;
use IO::Select;
use threads;
use Data::Dumper;

threads->create(\&server);
my $count;
while (1) {
	my $c1 = new IO::Socket::INET(Proto => "tcp", PeerAddr => "127.1", PeerPort => 3000) || die "Finished";
	print "client socket ", ++$count, " uses local port ", $c1->sockport(), "\n";
}

sub server {
	my $s = new IO::Socket::INET(Proto => "tcp", LocalAddr => "127.1", LocalPort => 3000, Listen => 1);
	while (1) {
		$s->accept();
	}
}