<meta http-equiv="content-type" content="text/html" charset="utf-8"/>

$$a({
	type:'get',//тип запроса: get,post либо head
	url:'data/adapter.pl',//url адрес файла обработчика
	data:{'q':exec},//параметры запроса
	scriptCharset: "UTF-8",
	dataType:"html", 
	contentType: "text/plain",					
	response:'text',
	success:function (data) {
		$$('dataarea', (data));
	}
});

print $CGI->header(-type => 'text\html', -charset=>'utf-8');

use Encode;
Encode::from_to($html, 'windows-1251', 'utf-8');
print $html;