my %SQL;
$SQL{dbserver} = 'сервер';
$SQL{dbdriver} = 'mysql';
$SQL{dbname} = 'бднаме';

############### Подсоединяемся к базе
$QUERY{dbhandle} = ConnectToSQL(\%SQL);
unless (defined($QUERY{dbhandle})) { print("Can't connect to '$SQL{dbserver}/$SQL{dbname}'\n"); }


my %DATA;
if($QUERY{edited} eq 'auth') {	# если пришли после авторизации - читаем данные из базы
	%DATA = GetDataFromDB(\%QUERY);