ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Code:
#!/usr/bin/perl use strict;
use Cricket::Interface::Form;
use Cricket::Interface::Template;
use Cricket::Base::Config;
#use Cricket::Base::Mail; 
print "Content-type: text/html\n\n"; 
my($form) = Form->new(); 
#$form->print_it(); 
my($templ) = Template->instance(); 
my($cfg) = Config->instance(); 
$templ->param('Lang',$form->get('Lang')) if (uc $cfg->get('Template','MULTILANG') eq 'Y'); 
$templ->template($form->get('Read')) if ($form->get('Read')); 
print $templ->parce(); 
exit 0;