#!/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();