$dbh = DBI->Connect("DBI:mysql:strossus:localhost","strossus","password")
    or die $DBI::errstr;
my $table = $dbh->prepare qq'
CREATE TABLE players
(realname CHAR(20),
=
gold CHAR(40))')
    or die $dbh->errstr;

##</code><code>##

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print header;
warningsToBrowser(1);