A really simple progress bar for things that take a while. Doing stuff: ########### The bar grows as more stuff is done. Fifty hash marks are printed altogether. use Term::ProgressBar; my $num_items = 100; my $bar = new Term::Progressbar('working magic', $num_items); foreach (0 .. $num_items-1) { # do work for item $_ update $bar; } This is free software and you may distribute it under the same terms as perl itself. There is no warranty. -- Ed Avis, epa98@doc.ic.ac.uk, 2000-10-30