Ayuda con LWP en Perl

[iskile]

Hola,

tenia ganas de probar con LWP y llegue a esto:

Código [Seleccionar] Expandir

use LWP::Simple;

open (IN, 'accounts.txt');
while (<IN>) {
chomp;
$user=substr($_,0,5);
$pass=substr($_,6,6);


print "\n";

while()
{
sleep(3);

my $rap = get("https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login="."$user"."&password="."$pass");

if ($rap=~/Account found, but password is incorrect/)
{
print "Password incorrect";
}
elsif($rap=~/Account not found/)
{
print "Account not found";
}
}

}
close (IN);




el archivo accounts.txt es asi:

Código [Seleccionar] Expandir

11111:222222
11111:222222
11111:222222
11111:222222
11111:222222

es para chequear si una cuenta premium esta activa y si el password es correcto.

... ya lo solucione