print "Starting ...<br>\n";
for (my $i=0; $i < 10; $i++) {
   print $i,  (' ' x 1024) , "<br>\n";
   sleep 1;
}