#!/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;