Нашёл на перле,чекает..
#!/usr/bin/perl
use warnings;
use strict;
use threads;
use threads::shared;
use IO::Socket;
use IO::Socket::SSL;
use Fcntl ':flock';
### Настройки
my $accounts_file = 'acc.txt'; # Файл с аккаунтами
my $accounts_delimiter = ':'; # Разделитель логина и пароля
my...