#!/usr/bin/perl

                            
              use CGI;
              $query= new CGI;
              $q_string=$ENV{QUERY_STRING};
              $q_string=~s/(&|&)/&/g;
                
                if ($q_string eq '')
                
                     { 
                        eval {
                        open FILEH, 'plan.php_linkedfiles/00001.head';
                        binmode(FILEH);
                        sysread(FILEH, $headers, 32768);
                        close FILEH;
                        print $headers,"
";
                        
                        open FILEH, 'plan.php_linkedfiles/00001.php';
                        binmode FILEH;
                        while (sysread(FILEH, $filecont, 4096))
                            {
                                print $filecont;
                            }
                        
                        close FILEH;
                        };
                         
                         if ($@) {
                            print 'Ошибка чтения файла /home/www/z118101/htdocs/2010/07/dobr20.ru/plan.php_linkedfiles/00001.php:', "$@", "\n";
                         }
                     exit;   
                     }
                #boundaryboundary
                print $query->header(-type=>'text/html');
                #boundaryboundary