Select Code to Download

use Tk;
use Tk::HList;
...
);

MainLoop;

use Tkx;
my $mw = Tkx::widget->new(".");
...
);

Tkx::MainLoop();