#!/usr/bin/perl
use strict;
use warnings;
my $text1 = << 'EOHTML';
TEST WAIT
EOHTML
$text1 .= "TEXT_A_$_ \n" for(0..90);
$text1 .= "
";
$text1 .= " ??????
\n";
my $text2 = " \n";
$text2 .= "TEXT_B_$_ \n" for(0..10);
$text2 .= << 'EOHTML';
??????
EOHTML
$|=1;
$text1=~s/\Q??????/sprintf('%06u',length($text1))/e;
$text2=~s/\Q??????/sprintf('%06u',length($text2))/e;
#print "Content-length: ".(length($text1)+length($text2))."\x0D\x0A";
print "Content-type: text/html\x0D\x0A";
print "\x0D\x0A";
print $text1;
sleep(5);
print $text2;