sub create_database {
        my $dbname = $Config{'mysql.database_name'};
        eval {   
                 $dbh->do("CREATE DATABASE $dbname;");
        }; print $@ "\n" if $@;
}