in reply to Perl/TK dialog boxes

Try changing the code to this:
$top->withdraw; $next->Show; $top->destroy;
That'll hide the MainWindow.