Try this
sub {
# Displays authors list of articles with Author.
my ($output,$sth);
my $search_db = $DB->table('Links');
$sth = $search_db->select ( ['DISTINCT(LinkAuthor)']);
while (my $author = $sth->fetchrow_hashref) {
$output .= "<li>$author";
}
return $output;
}
sub {
# Displays authors list of articles with Author.
my ($output,$sth);
my $search_db = $DB->table('Links');
$sth = $search_db->select ( ['DISTINCT(LinkAuthor)']);
while (my $author = $sth->fetchrow_hashref) {
$output .= "<li>$author";
}
return $output;
}