[求助] 怎样采用perl 在mysql中建立新用户及新数据库

我在使用DBI连接数据库时总是需要指定一个数据库进行连接，怎样才能采用root帐号建立新帐号及数据库呢？

相应的mysql操作是：

GRANT ALL PRIVILEGES ON *.* TO 'username‘\@'$host' IDENTIFIED BY 'password';

CREATE DATABASE database_name;

DBI貌似不支持这类DCL操作吧。