my $doclist = $dbh->selectall_arrayref(
                  q{SELECT name
                      FROM products});

my $q = CGI->new;
print $q->header,
      $q->start_html('Edit comments'),
      $q->h1('Edit Comments');
	  
print scalar(@$doclist);
print scrolling_list(-name   => 'cboProj',
                     -values => @$doclist);