# ---подключение модулей
 use DBI;
 # --- объявление переменных
 my $DB_HANDLER;
 my $DSN;
 my $db_name;
 my $sql_srv;
 my $sql_srv_port;
 my $sql_login;
 my $sql_password;
 my $request_str;
 my $db_query;
 my $tmp_val1;
 my $tmp_val2;
 my $tmp_val3;
 my %tmp_hash1;
 my @tmp_mas1;
 my $server_answer;
 # --- открытие подключения к SQL-серверу
 # установка параметров подключения к SQL-серверу
 $tmp1="../www/dat/sql_credentials.ini";
 open (DATAFILE, "<$tmp1");
   while (defined($tmp1=<DATAFILE>)) {
    $tmp1=substr($tmp1,0,-1);
    ($tmp2, $tmp3)=split(/=/, $tmp1);
    $tmp_hash1{$tmp2}=$tmp3;
   };
 close DATAFILE;
   $db_name=$tmp_hash1{'db_name'};
   $sql_srv=$tmp_hash1{'sql_srv'};
   $sql_srv_port=$tmp_hash1{'sql_srv_port'};
   $sql_login=$tmp_hash1{'sql_login'};
   $sql_password=$tmp_hash1{'sql_password'};
 # подключение к серверу
 $DSN='driver={MySQL ODBC 5.1 Driver}; Server='.$sql_srv.'; database='.$db_name.';
 uid='.$sql_login.'; pwd='.$sql_password.';';
 $DB_HANDLER = DBI->connect("DBI:ODBC:$DSN",{PrintError=>0,RaiseError=>0});
 $server_answer="";
 # --- чтение из таблицы (БД)полей с текстом на русском языке
 $request_str="SELECT t_text FROM texts WHERE t_name='rec1';";
 $db_query=$DB_HANDLER->prepare($request_str); $db_query->execute();
 @tmp_mas1=$db_query->fetchrow_array();
 $db_query->finish();
 $server_answer=$server_answer."<BR><P>считывание поля (таблица TEXTS) с текстом длинной
 39 символов</P>";
 $server_answer=$server_answer."<P>ожидаемое значение =
 qwertyuiopqwertyuiopqwertyuiopqwertyuio</P>";
 $server_answer=$server_answer."<P>полученное значение = ".$tmp_mas1[0]."</P>";
 $server_answer=$server_answer."<P>длинна полученной строки =
 ".length($tmp_mas1[0])."</P>";
 $server_answer=$server_answer."<P>--------------------------------------------------</P>";
 $request_str="SELECT t_text FROM texts WHERE t_name='rec2';";
 $db_query=$DB_HANDLER->prepare($request_str); $db_query->execute();
 @tmp_mas1=$db_query->fetchrow_array();
 $db_query->finish();
 $server_answer=$server_answer."<BR><P>считывание поля (таблица TEXTS) с текстом длинной
 40 символов</P>";
 $server_answer=$server_answer."<P>ожидаемое значение =
 qwertyuiopqwertyuiopqwertyuiopqwertyuiop</P>";
 $server_answer=$server_answer."<P>полученное значение = ".$tmp_mas1[0]."</P>";
 $server_answer=$server_answer."<P>длинна полученной строки =
 ".length($tmp_mas1[0])."</P>";
 $server_answer=$server_answer."<P>--------------------------------------------------</P>";
 $request_str="SELECT t_text FROM texts WHERE t_name='rec3';";
 $db_query=$DB_HANDLER->prepare($request_str); $db_query->execute();
 @tmp_mas1=$db_query->fetchrow_array();
 $db_query->finish();
 $server_answer=$server_answer."<BR><P>считывание поля (таблица TEXTS) с текстом длинной
 41 символ</P>";
 $server_answer=$server_answer."<P>ожидаемое значение =
 qwertyuiopqwertyuiopqwertyuiopqwertyuiopq</P>";
 $server_answer=$server_answer."<P>полученное значение = ".$tmp_mas1[0]."</P>";
 $server_answer=$server_answer."<P>длинна полученной строки =
 ".length($tmp_mas1[0])."</P>";
 $server_answer=$server_answer."<P>--------------------------------------------------</P>";
 # ------------------------------------------------------------- ответ клиенту
 print "Content-type: text/html; charset=utf-8\n\n";
 print ($server_answer);