>Привет всем. Такая ситуация, есть страничка написанная на cgi.pm
>use CGI qw/:standard/;
>use DBI;
>
>print popup_menu(......)
>и теперь мне надо чтоб из таблицы PG значения подставлялись в значения
>popup_menu.
>
>Вот такая проблема.

Все нашел как это делать, оказалось просто.
Если кому понадобиться.
Выбираем нужные значения из таблицы и загоняем их в массив
use CGI qw/:standard/;
use DBI;

$db = DBI->connect("dbi:Pg:dbname=template1","pgsql","",{PrintError=>0});
$q = "select tablename from pg_tables";
$sth = $db->prepare($sel_q);
$rv = $sth->execute();

while ($ref=$sth->fetchrow_hashref())
      {
      ($name)=($ref->{'tablename'});
       push(@name_mas,$name);
      }

#print popup_menu({-values=>[@name_mas]});
$sth->finish();
$db->disconnect();