Hello World
\n\n\n"; { use bytes; $http_body_length = length($http_body); } print header(-type => 'text/html', -content_length => $http_body_length ); print $http_body; ####
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;
use CGI qw(:standard );
my $http_body_length = 0;
my $http_body = "\n\n\n\nHello World
\n\n\n";
{
use bytes;
$http_body_length = length($http_body);
}
print header(-type => 'text/html',
-content_length => $http_body_length,
-nph => 1);
print $http_body;
####
print header(-type => 'text/html',
-content_length => $http_body_length,
-connection => 'Keep-Alive',
-nph => 1);