$dbh =
DBI->connect("dbi:InterBase:dbname=/usr/local/firebird/security.fdb;host=$host",$fbuser,$fbpass,{AutoCommit =>1});
my $create = qq(CREATE DATABASE '$host:/var/lib/firebird/$dbname.fdb' user '$username' password '$password');
$dbh->do($create);