#!/usr/bin/perl
use strict;
# Connect to the MySQL server, run the query, store the result
use DBI;
my $dbh=DBI->connect("DBI:mysql:host=localhost;database=test", "root", "blah", {PrintError=>0, RaiseError=>1});
my $results = $dbh->selectall_hashref('SELECT * FROM Animals', 'Name');
$dbh->disconnect();
my $result=
"Content-Type: text/html; charset=ISO-8859-1\n\n".
"".
"".
"List of Animals".
"".
"
Pet roll call
".
"
".
"
Name
Count
";
foreach my $Name (keys %$results)
{
$result.=
"