use warnings;
use strict;
use Tk;

my $mw = MainWindow->new(-title => 'main window');

for (1..5) {
	$mw->Toplevel(-title => "toplevel #$_");
}

for ($mw, $mw->children) {
    print $_->cget('-title'),"\n" if /Toplevel/ or /MainWindow/;
}

MainLoop;