#!/usr/bin/perl
use warnings;

$|=1;
for my $x(1..100){
  print progress_bar( $x,100,25,'='); sleep 1; 
}
sub progress_bar {
   my ( $got, $total, $width, $char ) = @_;
   $width ||= 25;
   $char  ||= '=';
   $num_width = length $total;
   sprintf "|%-${width}s| Got %${num_width}s bytes of %s (%.2f%%)\r",
       $char x (($width-1)*$got/$total). '>', $got, $total, 100*$got/$total;
}

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::ProgressBar;

my $mw = MainWindow->new();

my $pf = $mw->Frame()->pack();
my $pf1 = $mw->Frame()->pack();

my $foo = 0;
my $p = $pf->ProgressBar(
 -troughcolor => 'black',
    -fg       => 'lightgreen',
    -blocks   => 1,
    -width    => 20,
    -length   => 200,
    -from     => 0,
    -to       => 100,
    -variable => \$foo,
)->pack(-side =>'right');

my $l1 = $pf->Label(-text => '%',
               -bg       => 'black',
               -fg       => 'green',
               )->pack(-side => 'right');
	   
my $l2 = $pf->Label(-textvariable => \$foo,
               -bg       => 'black',
               -fg       => 'green',
               -width => 3,   
	       )->pack(-side => 'right');

###############################

my $foo1 = 0;
my $p1 = $pf1->ProgressBar(
 -troughcolor => 'black',
    -fg       => 'pink',
    -blocks   => 1,
    -width    => 20,
    -length   => 200,
    -from     => 0,
    -to       => 100,
    -variable => \$foo1,
)->pack(-side =>'right');

my $l3 = $pf1->Label(-text => '%',
               -bg       => 'black',
               -fg       => 'pink',
               )->pack(-side => 'right');
	   
my $l4 = $pf1->Label(-textvariable => \$foo1,
               -bg       => 'black',
               -fg       => 'pink',
               -width => 3,   
	       )->pack(-side => 'right');

$mw->Button( -text => 'Quit',
             -command => sub { exit }
  )->pack;

$mw->repeat( 100, sub { 

        $foo = ( $foo + 1 ) % 100;
        if($foo > 100){$foo = 0}
            
        $foo1 = ( $foo1 + 2 ) % 100; 
        if($foo1 > 100){$foo1 = 0}
        
        });
MainLoop;