#!/usr/bin/perl sub CFG_PARAMS { return { #=========================================================== # Кодировка по умолчанию CHARSET => 'windows-1251', # Кэширование страниц EXPIRES => 'now', } } use lib qw (/home/zagrinfo/infolib); use CGI::Simple qw(-default); use Infoapnnn3; my $app = new Infoapnnn3( QUERY => CGI::Simple->new(), PARAMS => &CFG_PARAMS(), ); $app->run();