use strict;
use DBI;

my $DBI;
$ENV{SPRITE_HOME} = "E:\\PRPG\\World\\";
$DBI = DBI->connect('DBI:Sprite:WORLD') || die "Could not connect (".$DBI->err.':'.$DBI->errstr.")!";

$DBI->do("CREATE TABLE WORLD (UID INT, X INT, Y INT, Z INT, IID INT)");