Term::ProgressBar updates the progress bar simply by printing a carriage return character before the bar (as far as I can tell from the source). That character just sets the cursor at the beginning of the line again

You can test this with a simple print "\n"; inbetween updates of the bar. Then you should see every progress bar iteration one line after the other, because the new progress bar is printed on the next line instead of the same.

You might be able to use the minor character (see ProgressBar docu) to display progress inside the files if you use it with the linear completion time estimator to just stay inside one step of the major character while using the minor character to go from 0 to 100% for any number of files.

CORRECTION: Sorry, didn't mean linear completion time estimator but the return value of update. If that shows the change value of the major progress bar, then it is possible. If it shows the change value of the minor progress bar too, you are out of luck (and I think the latter case is more likely).

Printing a "\n" almost works. Adding a print "\e[A" to move up one line gets you the whole way.

#!/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;
}
[download]

#!/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;
[download]

Here's a working version. Note that I'm using Term::StatusBar, not Term::ProgressBar. Then again, zentara didn't use T::PB, either :-)

#! /usr/bin/perl

use warnings;
use strict;
use Term::StatusBar;

system('clear'); # too lazy to do this right.

use constant MAX => 100_000;
use Time::HiRes qw(usleep);

my $run_progress = Term::StatusBar->new(label => 'Run',
                                        totalItems => 10,
                                        scale => 1000,
                                       );

for (0..10) # the outer run
{
    $run_progress->update();

    my $powers_progress = Term::StatusBar->new(label => "Powers$_",
                                               startRow => 3,
                                               scale => 1000,
                                               totalItems => MAX,
                                              );
    
    for (0..MAX)
    {
        $powers_progress->update();
        usleep(100);
    }
}
[download]