Perl

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
$mail = '';
$pass = '';
$club = '6968868';
$_tid = '24540895';
$text = 'sometext';
$browser = LWP::UserAgent->new(); $cookie = HTTP::Cookies->new(); $browser->cookie_jar($cookie);
$link = "http://login.vk.com/?act=login&email=$mail&pass=$pass&from_host=vk.com";
$data = $browser->get($link)->as_string; if($data =~ /reg/) {exit("Auth failed!\n");}
$data = $browser->get("http://vk.com/topic-$club\_$_tid\?offset=last")->as_string;
    if($data=~/hash: \'(.*)\',/){$hash = $1;
    if($data=~/.*_(.*)\"><div class=\"bp_text/){$last = $1;}
    print "\n\nhash: $hash\nlast: $last\n\n";
    } else {
    print "there\'s an error!\n";
    }