$| =1; $max = 100; $str = "["; for(1..100) { $str .= ($_ % 10) ? ("") : ("|"); print $str."]"; print int(($_/$max)*100)."\r"; select(undef,undef,undef,.1); }