#!/usr/bin/perl

print "Content-Type: text/html\n\n";
$| = 1; # This enables autoflush.
my $i = 0;
while ($i < 11) {
  print STDOUT "<script>";
  print STDOUT "window.parent.document.getElementById(\"result\").innerHTML = " . "\"$i\";\n";
  print STDOUT "var slist = document.getElementsByTagName(\"script\");\n";
  print STDOUT "while (slist.length > 0) {\n";
  print STDOUT "  var scriptElement = slist[0];\n";
  print STDOUT "  scriptElement.parentNode.removeChild(scriptElement);\n";
  print STDOUT "}\n";
  print STDOUT "</script>";
  sleep 1;
  ++$i;
}