#!/usr/bin/perl

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

$messg = `audtool --current-song`;
$login = '';
$passw = '';

$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");
    $data = $request->get("http://m.vk.com/id")->as_string;
    $user = $1 if ($data =~ /id=(.*?)&/);
    $hash = $1 if ($data =~ /hash=(.*?)&/);
    $post = "to_id=$user&wall_hash=$hash&pda=1&message=$messg";
    $data = $request->post("http://m.vk.com/wallsent", Content => $post);

# msgbox