#!/usr/bin/perl -w

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $q = $ua->post( 'http://connect.ua/spotlight?id=317891',
			[  comment_text   => ' ',
			   submit_comment => '%D0%B4%D0%BE%D0%B1%D0%B0%D0%B2%D0%B8%D1%26%2365533%3B%D1%26%2365533%3B',
			] );