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