Есть код который создает форму
#!/usr/bin/perl -w
use DBI;



#@tables = $dbh->func( '_ListTables' );
#foreach $line(@tables) { print $line,"\n"; }
#$dbh->disconnect();


print "<form method='post' action='addtovar2.pl'>";

require 'mysql1.pl';

print "Content-Type: text/html\n\n";
# Подключение к базе:
$dbh = DBI->connect("DBI:mysql:database=$database",$opt_user,$opt_password) ||die "Can't connect: $DBI::errstr\n";

$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"');
#формирование ниспадающего списка
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 "<br><input type='submit' value='Сохранить'>";
print "</form><p>";


Форма создается успешно выпадающий список есть... но при нажатии на кнопку Сохранить не происходит вызов addtovar2.pl... Почему???

vkle,
спасибо .. действительно
print "Content-Type: text/html\n\n";

надо было поднять выше!!! спасибо