use Modern::Perl;
use Smart::Comments;
my $cnt = 0;

for (0 .. 999_999) { ### Processing===[%] done
   $cnt++;
   sleep(.5);
}

say "Finished!"