use strict;
use warnings;
use Tkx
my $mw=Tkx::widget->new
....
....
....

Tkx::MainLoop;