Super Search is your friend here. A search for "hourglass", for example, quickly turns up several nodes that may be of interest:

Creating progress bar
Creating hourglass using PERL
Cursor in TK

... and so on.

Update: This looks useful: Using Tk::ProgressBar

HTH,