Bueno...tenia que usar sockets para una cosa y pensé en Perl por su facilidad y rendimiento...
El script debe visitar una web una cantidad de veces, metidas ambas por el usuario

Antes de nada, dejo claro que este script no es para hacer algún tipo de DOS o algo parecido. No es para atacar NADA.


Lo hice y todo iba bien, hasta cuando metí los bucles...

Creo que el problema es de las variables..pero no tengo ni idea 


Aquí con la última técnologia, goto 

#!/bin/perl
#Ruben Ruiz "BenRu"
 
 
use LWP::Simple;
$veces = 0;
$cantidad=<STDIN>;  
inicio:
if ($veces <= $cantidad) 
  {
print "\n";
print "Direccion: ";
$page=<STDIN>;   
chop $page;
$url = "http://$page";
$veces = $veces + 1;
goto inicio;
  }
else
  {
    exit();
  }

Aqui con un bucle:

#!/bin/perl
#Ruben Ruiz "BenRu"
 
use LWP::Simple;
$veces = 0;
$cantidad=<STDIN>;  
while($veces <= $cantidad) 
  {
print "\n";
print "Direccion: ";
$page=<STDIN>;   
$url = "http://$page";
print "$url\n";
$veces = $veces + 1;
  }

El interprete no me muestra ningún error y se ejecuta, pero no arranca.

Bueno...son esas cosas que pasan cuando no sabes un lenguaje de programación 

Y por cierto, el code que has puesto no funciona:
-No visita la url.
-Una vez puesta la url, te vuelve a pedir la dirección...

$page=<STDIN>;   
chop $page;
$url = "http://$page";

Corazon en ninguna parte de tu codigo (que no puse un codigo hecho por mi, solo corregi parte de la sintaxis del tuyo y eso fue lo que repostee    ) lo unico que hace es imprimir en pantalla. Que definas dentro de una variable esto ::

my $url="http://$pagina"

No implica que cuando esa variable obtenga el valor de otra variable, va a navegarte a la web. $url es solo una variable, y como tal guarda datos no es una funcion ni una aplicacion que se ejecuta solo existe para guardar datos.... Ahora si tu hicieras esto :


Que creo que eso es lo que mas o menos andas buscando... y no pretendo ayudar porque aunque digas que no, tu objetivo final es hacer envios de solicitud masivo a cierta web.

Pues como dijeron arriba .. el codigo esta mal y EN NINGUNA PARTE LE HACE GET HACIA LA PAGINA.

Puedes hacerlo con LWP Y HTTP::Request :

#!/usr/bin/perl
 
use LWP::UserAgent;
use HTTP::Request;
 
print "\n\nDame Sitio:\n> ";
$sitio=<STDIN>;
chop($sitio); # Eliminamos el ultimo caracter - IMPORTANTE
 
print "\n\nCuantas Veces:\n> ";
$times=<STDIN>;
chop($times);
 
for($x=0;$x<=$times;$x++) {
 
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.13) Gecko/20080311 Firefox/2.0.0.13");
$re = HTTP::Request->new(GET => $sitio);
$response = $ua->request($re);
 
print "\nVisitado: \t$x";
 
}
 

Saludos !