use Tk;
 
 my $top = new MainWindow;
 
print $Tk::VERSION;

Tk::MainLoop();