my $child = $main->Toplevel(
   -title=>'Child Window',
   -use=>$box->winfo('id')
);