#!/usr/local/bin/perl
#
#illustrator2.cgi
#
#
$datafile="../determinator/dbimage.txt";
if (!$ENV{'QUERY_STRING'}) {$query="tl11.txt"}
else {$query=$ENV{'QUERY_STRING'}}
$auth = substr($query,0,2);
if ($auth eq "pl") {$patafile="../determinator/pereslavl.txt"}
else {$patafile="../determinator/shust.txt"};
$header1 = (<< "HEADER1") ;
Рассказы с иллюстрациями
HEADER1
$header2 = (<< "HEADER2");