qweqwe, wall, like

#!/usr/bin/perl

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

$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");}
while(1) {
$data = $browser->get("http://m.vk.com/group6968868")->as_string;
$temp = $1 if $data=~/group6968868\?like=(.*)\">/;
$wall = $1 if $temp=~/_(.*)&/;
  if ($last!=$wall) {
  $hash = $1 if $temp=~/hash=(.*)/;
  $data = $browser->get("http://m.vk.com/group6968868?like=-6968868_$wall&hash=$hash")->as_string;
  print "Vote added to http://vk.com/wall-6968868_$wall, hash = $hash.\n";
  $last = $wall;
  }
sleep(7);
}