#
# progress.cgi
#
$|=1;
print "Content-Type: text/html\n\n";

for ($i=1;$i<=10;$i++) {
   print ".";
   select(undef,undef,undef,1);
}