This topic has been covered many times. There is actually a node named Progress Bar that start off with character based ones and then refers to a few graphical solutions (Tk::ProgressBar and some code examples). You'll find many more nodes by searching on the same keywords using Super Search.

--Jim