indicatore avanzamento esecuzione

Ciao.
tra i vari programmi che uso, c'è n'è uno (non in perl, non ho sorgente)
che mi incuriosisce perchè ha un simpatico indicatore di avanzamento:
0 10 20 30 40 50 60 70 80
90 100

v-------v-------v-------v----- --v-------v-------v-------v--- ----v-------v-------v