$topw = $main->Toplevel(); 
$label = $topw->Label(-text => "Hallo")->pack(); 
$close = $topw->Button(-text => "Close",-command => sub { $topw-> destroy() })->pack;
$topw->Entry()->pack();
$topw->Popup();
......
weiterer code..
.......