Ok, so you don't want an hourglass, don't want gui (i.e. Tk), and now you are saying that you don't even want to download a module from CPAN? Why????

Not too long ago, there was a thread in perlmonks where someone had a kind of twirling baton, and the 'how to do it' was explained well.

I could try to find the node for you, but, honestly, I don't really feel like putting more time into your problem than you seem to want to put into solving your own problems.

Try super-search.

PS: For others reading this node, this is a continuation of Creating hourglass using PERL