Term-twiddle-quiet is a project mainly written in Perl, it's free.

Twiddles a thingy while-u-wait if run interactively