Help for this page
my $drh=DBI->install_driver('mysql'); my $rc = $drh->func('createdb',$DATABASE,$HOST,$USER,$PASSWORD,'admin' +) or die "Can't create\n";
use Sys::Hostname; $HOST=hostname();