#! /usr/bin/perl -w
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

sub submit_query {
    my ($file, %query) = @_;
    my $user_agent = LWP::UserAgent->new;
    $user_agent->agent("MSIE/5.5 " . $user_agent->agent);
    my $request = POST
    $file,
    [%query];
    my $response = $user_agent->request($request);
}

if(!$ARGV[0] || !$ARGV[1]) { printf "usage :script.pl id kol-vo\n"; exit(0);}



 my %example = (id => $ARGV[0], score => '10', x => '53', y => '10');
		for (my($i) = 0; $i<$ARGV[1];$i++)
				{submit_query("http://2008.mail.ru/add_score", %example);}
				printf "done";