LayoutTests/http/tests/xmlhttprequest/interactive-state.cgi - WebKit - Git at Google

 #!/usr/bin/perl -w

 use Time::HiRes;

 # flush the buffers after each print
 select (STDOUT);
 $| = 1;

 print "Content-Type: text/html\n\n";

 for ($count=1; $count<5; $count++) {
     print "&#x0020;&#x0020; &#x0020;&#x0020;&#x0020;&#x0020;&#x20;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;  ";
     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; &#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x020;&#x0020;&#x0020;&#x0020;&#x020;&#x0020;&#x0020;&#x0020;";
     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x20;&#x0020;&#x0020;&#x0020; &#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
     print "&#x0020;&#x0020;&#x0020; &#x20; &#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
     Time::HiRes::sleep(0.5);
 }
	#!/usr/bin/perl -w

	use Time::HiRes;

	# flush the buffers after each print
	select (STDOUT);
	$\| = 1;

	print "Content-Type: text/html\n\n";

	for ($count=1; $count<5; $count++) {
	print " ";
	print " ";
	print " ";
	print " ";
	print " ";
	print " ";
	print " ";
	print " ";
	Time::HiRes::sleep(0.5);
	}