#!/usr/local/bin/perl

   use CGI;
   use DBI;
   my $dbh;
   $dbh = DBI->Connect("DBI:mysql:strossus:localhost","strossus",
                       "********");
   my $table = $dbh->prepare qq'
   CREATE TABLE players
   (realname CHAR(20),
   =
   gold CHAR(40))');
   $dbh->disconnect();