#!/usr/bin/perl

use DBI; 
use CGI; 

$q = new CGI; 

print "Content-type: text/html\n\n"; 

$DB        = "dbi:mysql:demoOne:silo.cs.indiana.edu:port=16xxx"; 
$username  = "userxxxx";             
$password  = "password"; 

$dbh = DBI->connect($DB, 
                    $username, 
                    $password, {PrintError => 0}) || 
       die "Couldn't open database: ", $DBI::errstr; 

$query = "select * from players_table"; 

$sth = $dbh->prepare($query) || die $dbh->errstr;

$sth->execute() || die $sth->errstr;

print qq{
  <table border cellpadding=2>
    <tr><th> Username 
        <th> First Name 
        <th> Last Name 
        <th> Picture  
        <th> Address 
        <th> City  
        <th> State 
        <th> Player rate per match 

}; 

while (my $row = $sth->fetch) {
  my(@values) = @$row; 
  print "<tr>"; 
  foreach $value (@values) {
    print "<td>$value"; 
  } 

} 

print "</table>"; 

$sth->finish;