Я пытаюсь прочитать файл в моем сценарии perl, а затем установить заголовки соответствующим образом в зависимости от типа файла. PDF-файлы не отображаются, и я думаю, что мой серверный парень заблокировал эту вещь. Есть что-то, что я могу делать не так с этим скриптом?
my $q = CGI->new; #instantiate the CGI object
my $filename = $q->param('file'); # get the file param from the query string
my $text = read_file($filename); # read in the file
my($name, $path, $suffix) = fileparse($filename, qr/\..*/);
if($suffix eq ".pdf") {
print $q->header('Content-type: application/pdf');
} else {
print $q->header('text/html');
}