sub Brut { #Название функции
my $fid = $_; #Переменная с номером потока(используется позже для того чтобы каждый поток писал в отдельный файл
while($i>0) #Создаем цикл, который будет выполнятся пока ид страницы > 0
{
my $url = ""; #Создаем пустую переменную $url
{
lock($i);$i--; #Блокируем переменную $i для данного потока и уменьшаем её значение на 1
print "$i\n"; #Выводим на экран текущее значение $i
$url = "http://torrents.ru/forum/profile.php?mode=viewprofile&u=$i"
# Присваиваем переменной $url адрес страницы для дальнейшего парсинга
}

$res = $ua->get($url)->as_string; #Получаем страницу в переменную $res
if ($res =~ /Профиль пользователя: (.*?)<\/h1>/) #Регулярным выражением вытаскиваем из текста страницы логин пользователя
{
open(FILE, ">>$fid.log.txt") || die("Could not open $fid.log.txt\n"); #Открываем файл для дозаписи
print FILE $1."\n"; #Записываем в файл полученный с помощью регулярного выражения логин пользователя
close(FILE); #Закрываем файл
}

}
}