#!/usr/bin/perl -wT

use DBI;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;

my $cgi = CGI->new();  # Create new CGI object.

my $database = "db";
my $db_server = "localhost";
my $user = "user";
my $password = "pass";

my $dbh = DBI->connect("DBI:mysql:$database;host=$db_server", $user,
$password) or die $DBI::errstr;

my $authorSQL = "SELECT idAuthor, Author FROM Author ORDER BY Author";

my $hash_ref = $dbh->selectall_hashref($authorSQL, "idAuthor");

print $cgi->header;
print $cgi->start_form;
print Dumper($hash_ref);

print $cgi->popup_menu(-name=>'menu_name',
                  -values=>[$hash_ref]);

print $cgi->end_form;