#!/usr/bin/winperl
use strict;
use warnings;

use Tk;
use Tk::ProgressBar;

my $mw = MainWindow->new();

my $prog = $mw->ProgressBar(
  -length => 200,  # Actually width
  -width  => 20,   # Actually height
  -gap    => 0,
  -value  => 0,
  -colors => [0, 'navy'],
)->pack(-pady => 5, -padx => 5),

my @ints = (1 .. 100);
for my $int (@ints) {

  # Set the new value of the progress bar to
  # the old value ($prog->value) plus one.
  $prog->value($prog->value + 1);

  tksleep($mw, 10);

}

# Like sleep, but actually allows the display to be
# updated, and takes milliseconds instead of seconds.
sub tksleep {
  my $mw = shift;
  my $ms = shift;
  my $flag = 0;

  $mw->after($ms, sub { $flag++ });
  $mw->waitVariable(\$flag);
}
[download]

bbfu
Black flowers blossom
Fearless on my breath

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::ProgressIndicator;
my $MainWindow = MainWindow->new();
my $total = 100;    # this will vary 
my $ProgressIndicator = $MainWindow->ProgressIndicator
(
              '-current' => 0,
              '-limit' => 100,   # this is fixed! 
              '-increment' => 1,
              '-height' => 20,
              '-width' => 400
)->pack;

foreach my $offset (0..$total)
{
     $ProgressIndicator->configure ('-current' => $offset*100/$total,)
+;
     $MainWindow->update;
}
MainLoop;
[download]

This is a gorgeous bit of code, I am sure I will be using it as much as the "use strict". Thanks a lot.