I believe one of the various Term:: modules may handle this sort of thing, but I don't recall which, as it's not something I've ever actively used much. There was one discussed on the 2004 Perl Advent Calendar for printing progress bars, which is not quite what you want, but you could look at how it achieves that effect and do the same thing.