использование Perl для соединения и запросов к базе данных