use warnings;
use strict;
use Tk;
sub MainWindow {
  print "Hallo Mainwindow\n";
}
sub new {
  print "new\n";
}
my $mw = new MainWindow();
MainLoop();