Send Content-Length header

cgi-bin/htlog/htlog.cgi

@@ -47,12 +47,15 @@ my $message = sprintf("Time: %s; Origin: %s; Tag: %s; I: %s; Message: %s\n",
 
 print $fh $message;
 
+my $out = "Message logged: $msg\n";
+
 print $q->header(
     -type               => 'text/plain',
     -expires            => 'now',
+    -content_lentgth    => length $out
 );
 
-print "Message logged: $msg\n";
+print $out;
 
 close $fh or die "cannot close log file: $!";