in reply to Perl TK Status bar or just label

any idea how to do it?

Practically every example in the demo, widget, does something like this, so do it like the examples.

TK textvariable not updating, Tk with map - Perl newbie