my $drh=DBI->install_driver('mysql');
my $rc = $drh->func('createdb',$DATABASE,$HOST,$USER,$PASSWORD,'admin') or die "Can't create\n";

##</code><code>##

use Sys::Hostname;
$HOST=hostname();