宏です。

Perl-DBIでテーブルを作成する方法はどうすれば良いのでしょうか？

　　　　　　　　　：
　　　　　　　《省略》
　　　　　　　　　：
my($dns) = "DBI:mysql:test:localhost";
my($username) = "root";
my($password) = "aaaa";
my($dbh,$sth);
my(@ary);

$dbh = DBI -> connect ($dns, $username, $password) or &Error("データベースへ
アクセスできません。1");
$sth2 = $dbh->prepare( qq{ CREATE TABLE box (suu int(11) NOT NULL PRIMARY
KEY AUTO_INCREMENT, id varchar(32) NOT NULL, bunsyou tinytext NULL )});
$sth2 -> execute() or &Error("CREATE TABLE を実行できません。1");

上記のプログラムの方法で合っているのでしょうか？
間違っていたり、気が付いた事があればお教え下さい。
宜しくお願いします。