I think that something like this might be what you are looking for: CGI::ProgressBar. An example from the docs:

#!/usr/bin/perl

use strict;
use warnings;
use CGI::ProgressBar qw/:standard/;

$|=1;

my $cgi = new CGI;
                       
print header, 
        start_html( 
                   -title =>'Example of ProgressBar', 
                   -style=>{ -src => ' ', 
                             -code => ' ', 
                   }
                   
        ), 
        h1('A Simple Example'), 
        p('This example will update a JS/CSS text progress bar.'), 
           progress_bar( -from=> 1, -to=> 100 ); 

for (1..10){ print update_progress_bar; 
      sleep 1; 
} 

print hide_progress_bar; 
print p('All done.'); 
print end_html;
exit(0);
[download]

The documentation is sparse and confusing, but it does work well.