in reply to Progress Bar
Another option would be using Term::ProgressBar: i used it in the past and it's pretty easy and complete.
$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g
|
|---|
In Section
Seekers of Perl Wisdom