#!/usr/bin/perl

use DBI;
use CGI qw(:standard);
use CGI::FormBuilder;
use CGI::Carp qw(fatalsToBrowser);
use strict;

my $serverName="*****";
my $serverPort="*****";
my $serverUser="*****";
my $serverPass="*****";
my $serverDb="*****";

my $dbh=DBI->connect('DBI:mysql:articles:localhost',
  'e3', '', { RaiseError => 1 })
  or die "Cannot connect: " . $DBI::errstr;

my $counter=0;
my $quiet=0;
my $table='articles';

print header;

print start_html('Title'), h1('Heading'), start_form;

print popup_menu(
  -name   => 'words',
  #-values => [ $dbh->selectall_arrayref('select content from articles') ]
  -values => [ $dbh->selectcol_arrayref('select content from articles') ]

  ),

  p,

  submit, end_form, hr;

print end_html;