print "<DIV style="display: none;">
my $count = 0;
while ( long_process_loop) { 
   # process
   ...
   ...
   $count++;
   if ( !($count % 1000) ) {
       print ".";
   }
}
print "</DIV>\n";