Може да свалиш Term::Progressbar, ето малко примерен код

$progress = Term::ProgressBar->new({count => $total_size, ETA => &return;
'linear'});
$progress->minor(0);
$progress->max_update_rate(1);
$progress->update($total_size);

Link:
http://search.cpan.org/author/FLUFFY/Term-ProgressBar