#!/usr/local/bin/perl -wT
use strict;
use CGI qw/:standard/
print header,
      start_html( -title => 'Test program' ),
      h1( 'Hello world' ),
      end_html;

##</code><code>##

my $table = $dbh->prepare qq'
CREATE TABLE players
(realname CHAR(20),
=
gold CHAR(40))');

##</code><code>##

my $table = $dbh->prepare( qq'
CREATE TABLE players
(realname CHAR(20),
 gold CHAR(40))');

##</code><code>##

create table players
(
    player_id INTEGER NOT NULL,
    firstname VARCHAR(15),
    lastlast  VARCHAR(20),
    gold      INTEGER
);