# Tcl inclusion for GUI finished here; you can work with widgets here like:
my $lab = $mw->interp->widget('.status');
$lab->configure(-text=>'new text here...');