use strict;
use warnings;
use IO::Socket;
use Time::HiRes qw(gettimeofday tv_interval);

my $sock = IO::Socket::INET->new(PeerAddr => 'localhost',
                                 PeerPort => '19',
                                 Proto    => 'tcp');

my $start_time = [gettimeofday];

my $buff;
for (1..10) {
	read $sock, $buff, 1024;
}

print "Taken " . tv_interval($start_time) . "seconds\n";
$sock->close();

##</code><code>##

use constant NEW_SOCK_EVERY => 1000;
...
    my $server_sock = new IO::Socket::INET(
        Listen => 1,LocalPort => 19,Reuse=> 1
    );
    my $sel = new IO::Select( $server_sock  );
	my $i = NEW_SOCK_EVERY;
    while($server_sock) {
		if (++$i>=NEW_SOCK_EVERY) {
			$i=0;
			foreach my $socket ($sel->can_read(0.0001)) {
				if($socket == $server_sock ) {
					new_socket($socket);
				}else{
					if(defined ($socket)) {
						close_socket($socket);
					}
				}
			}
		}
        foreach my $wsocket ($sel->can_write(0.0001)) {
            gen_chars($wsocket);
        }
    }
...