use Tk;

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

MainLoop;

##</code><code>##

use Tk;

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

MainLoop;