use Tk;

my $mw = new MainWindow();
$mw->geometry("400x200-0-0");
$mw->deiconify();

MainLoop;