perl - Perl CGI : エラー メッセージ:スクリプトのヘッダーの形式が正しくありません。不正なヘッダー=<本文>:

Question

上記のエラーが発生しています。

主なスクリプトは以下にあります

#!/opt/lampp/bin/perl
use lib "/opt/lampp/htdocs/PERL";
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use WEBPAGE::PageDesign;
use HTML::Form;

my $header = get_header() ;
my $html   = parse_form(\%ENV);

print "Content-type: text/html\n\n";
print <<HTML;
$header
$html
HTML

生成されたhtmlは適切ですが、htmlページの後にエラーが続くスクリプト

Error message:
<br />malformed header from script. Bad header=&lt;body&gt;: publish_scholarship.pl,

Answer 1

印刷ヘッダー行を先頭に移動します。それでも機能しない場合は、BEGIN ブロックに移動します。

use warnings;
use strict;

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

use lib "/opt/lampp/htdocs/PERL";
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use WEBPAGE::PageDesign;
use HTML::Form;


my $header = get_header() ;
my $html   = parse_form(\%ENV);

print <<HTML;
$header
$html
HTML