#!/usr/local/bin/perl

#
# $Header: /cvsroot/Net::EasyTCP/util/attack.pl,v 1.4 2003/03/02 05:41:48 mina Exp $
#

$| = 1;

use Net::EasyTCP;

for (1 .. 1000) {
	print "Launching client [$_}\n";
	$client = new Net::EasyTCP(
		mode         => "client",
		host         => 'localhost',
		port         => 2345,
		password     => "byteme",
		donotencrypt => 1,
	  )
	  || die "ERROR CREATING CLIENT: $@\n";
	push (@clients, $client);
}

foreach $client (@clients) {
	print "Closing ...\n";
	$client->close() || die "ERROR CLOSING: $@\n";
}