use constant PROGRESS_CHUNK_SIZE => 1000;
my $counter = 0;
while ( ... ) {
   # loop that takes a long time to run
   ...
   $counter++;
   if ( !($counter % PROGRESS_CHUNK_SIZE) ) {
       print ".";
   }
}