#!/usr/bin/perl

use Socket;
use Benchmark;

timethis (100, q{

my $remote_host = "localhost";
my $port = 2001;

my $ip = inet_aton $remote_host
    or die "unknown host: $remote_host";
my $proto = getprotobyname 'tcp';

socket SEARCH, PF_INET, SOCK_STREAM, $proto
    or die "socket: $!";

connect SEARCH, sockaddr_in($port, $ip)
    or die "connect: $!";

my $old_sel = select(SEARCH);
$| = 1; #SEARCH->autoflush(1);
select($old_sel);

print SEARCH "@ARGV\n";

@answers = <SEARCH>;

print scalar(@answers);
#print @answers;

close SEARCH
    or die "close: $!";

});