#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use Text::Iconv;

$win2utf = Text::Iconv->new('windows-1251','utf-8');
$utf2win = Text::Iconv->new('utf-8','windows-1251');
$mail = '';
$pass = '';

$browser = LWP::UserAgent->new("Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929");
$cookie = HTTP::Cookies->new();
$browser->cookie_jar($cookie);
$data = $browser->get("http://login.vk.com/?act=login&email=$mail&pass=$pass&from_host=vk.com")->as_string;
if($data =~ /reg/){exit("Auth failed!\n");}

$data = $browser->get("http://vk.com/friends_ajax.php")->as_string;
$temp = $1 if $data =~ /friends\':\[(.*)\],\'filter/;
$temp = $win2utf->convert("$temp");

while($temp =~ /.*\[(.*)\]/)
{
$temp =~ s!$1!!g;
print "$1\n";
}