Select Code to Download

    use Tcl::pTk;

...
        $lab->configure(-text=>"[". $lab->cget('-text')."]");
    })->pack;
    MainLoop;