#!/usr/bin/perl

use warnings;
use strict;
use DBI;
use DBD::mysql;
use CGI qw( :standard );

my $dbh = DBI->connect( "DBI:mysql:btree", "root", "", { RaiseError => 1 } );

my $string = "CREATE TABLE Nodes (
						NID INT NOT NULL AUTO_INCREMENT,
						PNID INT NOT NULL,
						DEPTH INT NOT NULL,
						PRIMARY KEY(NID) )";

$dbh->do( $string );
$dbh->do( q{ INSERT INTO Nodes ( PNID, DEPTH ) VALUES ( 0, 0 ) } );

$dbh->disconnect();

print header(), start_html( "Database Creation" );
print h4( "The btree Database Tables Has Been Created" );