This is probably what you want, a wget-style progressbar.

#!/usr/bin/perl

$|=1;
do{ print progress_bar( $_, 100, 25, '=' );
    select(undef,undef,undef, .1) }
for 1..100;

# figure out how to work it in to your program 

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]