Here is the code I am trying:
sub get_category_list {
# --------------------------------------------------------
# Builds a <select> list of category name to category id.
#
my $value = shift;
my $fname = shift | | 'CategoryID';
my $mult = shift | | '';
$mult and ($mult = "MULTIPLE SIZE=4");
my ($query, $sth, $id, $name, $output, $time);
my $cat_table_name_to_use = "$ENV{'REMOTE_USER'}cat";
# Explain: All sections are based on
# the value of REMOTE_USER and their
# respective categories have cat
# following them. IE: Storecat, Calendarcat, etc...

# $output = $CATEGORY_LIST{$value,$fname};
$time = time();

if (!$output) {
if (! $CATDB) {
$CATDB = new Links: : DBSQL $LINKS{admin_root_path} . "/defs/$ENV{'REMOTE_USER'}cat.def";
}
$query = qq!
SELECT ID, Name
FROM $cat_table_name_to_use
ORDER BY Name
!;

$sth = $CATDB->prepare ($query);
$sth->execute() or die "Can't Execute: $DBI::errstr";
$output = "<select $mult name='$fname'><option value=''>----";
while (($id, $name) = $sth->fetchrow_array) {
($id == $value) ? ($output .= "<option value='$id' SELECTED>$name") : ($output .= "<option value='$id'>$name");
}
$output .= "</select>";
$sth->finish;
$CATEGORY_LIST{$value,$fname} = $output;
}
return $output;
}