#!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;
use Template;

my $tt = Template->new();
my $dsn = "DBI:mysql:database=player;";
my $dbh = DBI->connect($dsn, "root", "secretpassword");
my @items;

my $sql = qq|SELECT * from proficiencies ORDER BY proficiency ASC;|;
my $sth = $dbh->prepare($sql);
$sth->execute;
while ( my @row = $sth->fetchrow_array() )
{
  push @items, \@row;
}

my $vars = { items => \@items };

print "Content-type: text/html\n\n";
$tt->process("prof.tmpl", $vars) or die $tt->error();