#!perl -w
use strict;
use CGI;

$| = 1; # turn on autoflush

print CGI->header;
print "Progress: ";

for (1..10) {
  print '.';
  sleep 2;
}

print "\n<br><br>Done!";