Select Code to Download

use strict;
use Tcl::Tk;
...
    });

Tcl::Tk::MainLoop;

use strict;
use Tcl::Tk;
...
#   $lab->configure(-text=>'new text here...');

Tcl::Tk::MainLoop;