#! perl -slw
use strict;
use IO::Socket::INET;

$| = 1;

my $port = $ARGV[ 0 ] || die "No port number";

my $socket = IO::Socket::INET->new(
	PeerAddr => 'localhost',
	PeerPort => $port,
	Proto    => "tcp",
	Type     => SOCK_STREAM
) or die "Couldn't connect to localhost:$port : $!\n";

$socket->autoflush;

for ( 1 .. rand 1000 ) {
	warn "Sending '$_'\n";
	print $socket "$port: $_";
	
	my $read = <$socket>;
	warn "Got '$read'\n";
	
	Win32::Sleep rand 10;
}

close $socket;