tcp-test.pl

#!/usr/bin/perl

use IO::Socket;
use constant MAXWRITE => 2000; #biggest write we'll attempt
use strict;
use warnings;
$|++; # autoflush stdout

my ($host,$port) = @ARGV;

my $socket = new IO::Socket::INET (
	PeerHost => $host,
	PeerPort => $port || 5001,
	Proto => 'tcp'
);

die "Connection error: $!\n" unless ($socket);

print "Connection established.\n";

my $recvbuffer;
foreach my $i (1 .. MAXWRITE) {
	my $string = "x" x $i; # build string to write to stream.
	print("$i: ");
	$socket->send($string);
	print("(sent) ");
	$socket->recv($recvbuffer, MAXWRITE);
	print(length($recvbuffer)," ", "(recieved) ");
	print "(match) " if ($string eq $recvbuffer);
	print "\n";
}