Есть скрипт:
#!/usr/bin/perl -w
use DBI;
#@tables = $dbh->func( '_ListTables' );
#foreach $line(@tables) { print $line,"\n"; }
#$dbh->disconnect();
print "<form method='post' action='testform1.pl'>";
require 'mysql1.pl';
print "Content-type: text/html\n\n";
print $database;
# Подключение к базе:
$dbh = DBI->connect("DBI:mysql:database=$database",$opt_user,$opt_password) ||die "Can't connect: $DBI::errstr\n";
#формирование ниспадающего списка
print "<SELECT name = vibork>\n";
#подготовка запроса
$sth = $dbh->prepare("SELECT idk,kat FROM kat");
#выполнение запроса
$sth->execute;
#заполнение списка содержимым
while (@line = $sth->fetchrow_array())
{ print "<OPTION value=$line[0]>$line[1]</OPTION>\n";}
$sth->finish;
print "</SELECT>";
print "<input name='user_name' value='' size=20>";
print "<h3>Спасибо, что заполнили форму</h3>\nНажмите ";
print '<a href="names.html">сюда</a>';
print ", чтобы увидеть введенные данные.\n";

Все что просто отображается нормально
print "<h3>Спасибо, что заполнили форму</h3>\nНажмите ";
print '<a href="names.html">сюда</a>';
print ", чтобы увидеть введенные данные.\n";[/quote]

В выпадающем списке ??? знаки , причем в БД данные на русском UTF8_unicode_CI
php нормально выводит при использовании
mysql_query("SET NAMES utf8");
mysql_query('SET CHARACTER SET utf8');
mysql_query('SET COLLATION_CONNECTION="utf8_general_ci"');

есть ли такое в perl
или как то это можно обойти??

Пока не поделишься не найдешь решение - дошло)))
$sth = $dbh->prepare("SET NAMES utf8");
$sth->execute;
$sth = $dbh->prepare('SET CHARACTER SET utf8');
$sth->execute;
$sth = $dbh->prepare('SET COLLATION_CONNECTION="utf8_general_ci"');
$sth->execute;