perl Term-ProgressBar