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