#!/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";
}