#!/usr/bin/perl

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

  $where = 'id37047698';
  $login = '[email protected]';
  $passw = 'megapassword';

  $request = LWP::UserAgent->new('Mozilla/5.0');
  $cookie = HTTP::Cookies->new;
  $request->cookie_jar($cookie);

    $data = $request->get("http://login.vk.com/?act=login&email=$login&pass=$passw&from_host=m.vk.com");
    while(1) {
    $data = $request->get("http://m.vk.com/$where")->as_string;
    $data =~ /like=(.*?)&hash=(.*?)\"/o;
    $data = $request->get("http://m.vk.com/$where?like=$1&hash=$2")->as_string;
    }