Help for this page
if(! Exists($obj->{mw})) { $obj = bless {mw => $wind->Toplevel()}; $obj->{mw}->title("Child Window");
my %toplevels; $toplevel{$count}{'toplevel'} = $wind->Toplevel();