#!/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\n

Hello 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;