#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11114006
use warnings;
use Tk;

my $mw = MainWindow->new;
$mw->geometry( '300x300+100+300' );

my $top = $mw->Toplevel();
$top->geometry( '300x300+500+300' );

MainLoop;