#!/usr/local/bin/jperl
print "HTTP/1.0 200\n";
print "Content-type: multipart/x-mixed-replace;boundary=---ThisRandomString---";
print "\n";
print "---ThisRandomString---\n";
	print "Content-type: text/html\n\n";
$|=1;
@message = (
' Yaha',
' Mr. sanpei',
' How are you?',
'');

for ($i=0; $i<$#message; $i++) {
	print "<h2> $message[$i] </h2>\n";
	#print "---ThisRandomString---\n";
	sleep(2);
}