use Tk;

my $mw = new MainWindow();
$mw->geometry("200x400+0+0");
$mw->deiconify();

MainLoop;