$size = scalar @acc;
$time 	 = time; 
$start 	 = localtime;
print  "Loaded: ",$size," emails.\n";
printf "Started at $start\n";

print  "Loaded: ${\scalar @acc} emails.\n";
printf "Started at ${\scalar localtime}\n";

sysread ($sock, my $answ, 800)

sub progress{
print "|";
$percent = sprintf("%.2f", $percent);
print "< $percent% >\r";
print "\r";
}

sub progress
{
    printf "|< %.2f >\r",$percent;
}

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