use warnings;
use strict;
use Tk;

my $main = MainWindow->new ();

$main->geometry('100x200+500+10');

MainLoop;