{
   local $| = 1;  ## turn on auto-flush locally
   print 'processing';
   for (1..5) {
      print '.';
      sleep 1;
   }
}