while (ask('databasetype','Database type?','mysql')) {
	last
		if (grep {getConf('databasetype') eq $_} @databases);

	output "Sorry, invalid option\n\n";
}