#!/usr/bin/perl

                            
              use CGI;
              $query= new CGI;
              $q_string=$ENV{QUERY_STRING};
              $q_string=~s/(&|&)/&/g;
                
                if ($q_string eq '')
                
                     { 
                        eval {
                        open FILEH, 'template_css.css_linkedfiles/00001.head';
                        binmode(FILEH);
                        sysread(FILEH, $headers, 32768);
                        close FILEH;
                        print $headers,"
";
                        
                        open FILEH, 'template_css.css_linkedfiles/00001.html';
                        binmode FILEH;
                        while (sysread(FILEH, $filecont, 4096))
                            {
                                print $filecont;
                            }
                        
                        close FILEH;
                        };
                         
                         if ($@) {
                            print 'Ошибка чтения файла /usr/local/www/apache22/cgi-bin/06/photokey.ru/templates/ja_procyon/css/template_css.css_linkedfiles/00001.html:', "$@", "\n";
                         }
                     exit;   
                     }
                #boundaryboundary
                print $query->header(-type=>'text/html');
                #boundaryboundary