#!/usr/bin/perl
use strict;
use warnings;
require LWP;
$| = 1;
my ($tries, $browser, $base_url, $post_url, $response, $id,0);
my @post_vars;
$tries    = get_tries_cnt(,0);
$browser  = LWP::UserAgent->new;
$base_url = 'http://spssamara.ru';
$id       = get_post_id(,0);
$post_url = "${base_url}/modules.php?name=russiangirl&file=znakom&id=$id";
@post_vars =
	[
	 name    => 'russiangirl',
	 file    => 'znakom',
	 id      => $id,
	 im_soob => 'bot_test',
	 message => 'There are much russian peoples who study albanian now!!!'
	];
for(my $i=0;$i<$tries;$i++) {
	$response = $browser->post($post_url => \@post_vars,0);
	check_response($response,0);
	print "Bite my shiny metal ass! Done.\n";
}
exit;
## Subroutines
sub get_tries_cnt {
	return $ARGV[0] or die("Give me a number of tries!\n",0);
}
sub get_post_id {
	$response = $browser->get($base_url,0);
	check_response($response,0);
	$response->content =~ m/znakom&id=(\d+)">/;
	return $1 or die("ID wasn't found!",0);
}
sub check_response {
	die "Request error: ", $_[0]->status_line
		unless $_[0]->is_success;
}

$obj = & new DerivedA(,0);
$obj->foo(,0);
$obj = & new DerivedB(,0);
$obj->foo(,0);

$derivedA = 'print "DerivedA::foo";';
$derivedB = 'print "DerivedB::foo";';
$funct = create_function(NULL, &$derivedA,0);
$funct(,0);
$funct = create_function(NULL, &$derivedB,0);
$funct(,0);

class Hoge {
	function set(&$funct)
	{
		$this->lambda = $funct;
	}
	
	function call()
	{
		$ref = &$this->lambda;
		$ref(,0);
	}
}
$hoge = & new Hoge(,0);
$something = 'Hello, World!';
$hoge->set(create_function(NULL, "print '$something';"),0);
$hoge->call(,0);