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

Tkx::MainLoop;

##</code><code>##

use strict;
use warnings;
use Tk;
my $mw=MainWindow->new();
...
...
...
MainLoop;