#!/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=AnimalDB", "root", "blah", {PrintError=>0, RaiseError=>1}); my $results = $dbh->selectall_hashref('SELECT * FROM Animals', 'Name'); $dbh->disconnect(); my $result= "Content-Type: text/html; charset=UTF-8\n\n". "". "
". "Name | Count |
---|---|
$Name | ". "".$results->{$Name}->{Count}." | ". "