use Tk;

my $main_w = MainWindow->new();
$main_w->title("Test");

my $xpos = $main_w->pointerx;
my $ypos = $main_w->pointery;
$main_w->geometry("+$xpos+$ypos");

MainLoop();