#!/usr/bin/perl use strict; use warnings; my $html = "Test"; print "Content-Length: ", length($html), "\n"; print "Content-Type: text/html\n\n"; print $html;