#!/usr/bin/perl -w

########
$acs = 'acs.txt';
########

use LWP::UserAgent;

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

while (<ACS>) {
    my($e,$p) = split /:/, $_;
    $p =~ s/[\r\n]//g;
    
    my $ua = LWP::UserAgent->new();
    $ua->cookie_jar( { file => 'cookies/'.$e, autosave => 1 } );
    $ua->agent('Opera/9.63 (Windows NT 6.0; U; ru) Presto/2.1.1');
    push @{ $ua->requests_redirectable }, 'POST';
    $ua->post('http://vkontakte.ru/login.php', [email => $e, pass  => $p]);
}