Creation of Databases in perl?

[Justin Plock]

I was wondering if anybody knew any way to create databases and tables from
within a web-based perl script.  Someone gave me some sample code that
basically is just piping the SQL commands to mysql:

open (MYH, "|mysql --user=username --password=password") || die "Cannot open
pipe to mysql\n";
print MYH <<"EOF";
drop table domains;
drop table hosts;
create table domains (ip char(15) not null primary key);
create table hosts (ip char(15) not null primary key);
EOF

But this code don't seem to work.  Any suggestions would be appreciated.
Thanks.

                            -Justin Plock