Select Code to Download

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use strict;
...
print header(-type => 'text/html',
                -content_length => $http_body_length );
print $http_body;

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use strict;
...
                -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);