ANTICHAT - Показать сообщение отдельно

Код:

#!/usr/bin/perl -w
use warnings;

Забавно, зачем включение ключа?

Код:

use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;

Зачем LWP::Simple и HTTP::Request?

Код:

print "Enter a file with targets:";
$file = <STDIN>;

Наверно, корректно использование chomp
chomp (my $file = <>)

Код:

open("FILE", $file) || die "Couldn't open file\n";
my @sites : shared =<FILE>;
close("FILE");
chomp(@sites);

Использование глобальных переменных не модно вроде как)

open my $desc, '<', $file or die "$!\n";
chomp (my @sites :shared = <$desc>);
close $desc;

Код:

my $null   = "09+and+1=" ;
my $add = '+' ;

А в чём приоритеты исползования двойных кавычек в данном случае?

И в верхних строках ты my не юзаешь , странно как-то

Код:

{ lock(@sites);}
my $site = shift(@sites);

замок действует только внутри блока, ты весельчак)

Код:

$result =~ m/You have an error in your SQL syntax/i || $result =~ m/Query failed/i etc

а в регекспах нет такого my $a = m,a|b|c,i ?
Дальше не читал, там ещё хуже наверно

Думаю, целесообразно скрипт переписать

10 потоков было ограничение в первом сп, хватит какие-то непонятные ограничения на всё ставить