Here is another possibility:
This is a module that I found on CPAN that and determined to be quite useful. I believe it may fit the sceanrio that you have described: Tk::StayOnTop. It's CPAN Description: Adds methods to the Tk::Toplevel base class so that a window can stay on top off all other windows.