искаженный заголовок из скрипта. Неверный заголовок = <! DOCTYPE html>

Question

Я получаю следующую ошибку сервера в сценарии perl:

искаженный заголовок из скрипта. Плохой Заголовок =: youtube_perl.pl

Вот мой исходный код:

---

#!"C:\XAMPP\perl\bin\perl.exe" -T

use strict;
use warnings;

use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use WWW::Mechanize;

my $q = CGI->new;

my $url = 'http://www.youtube.com';

my $mechanize = WWW::Mechanize->new(autocheck => 1);

$mechanize->get($url);

my $page = $mechanize->content();

print $page;

---

Заранее спасибо!

Answer 1

Разобрался. Пришлось добавить следующее, прежде чем я попытался напечатать страницу:

print "Content-type: text/html\n\n";

Я полагаю, Perl не может печатать HTML-страницы без определения заголовка.

Answer 2

print "Content-type: text/html\n\n";

Используйте \n\n, без этого он не будет печатать ничего, что даст:

Искаженный заголовок из ошибки скрипта

В вашем файле журнала ошибок.