sub tkinit { return MainWindow->new(@_) }
sub MainLoop
{
 unless ($inMainLoop)
  {
   local $inMainLoop = 1;
   while (Tk::MainWindow->Count)
    {
     DoOneEvent(0);
    }
  }
}


##</code><code>##

#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $mw    = MakeMain();
my $phwin = MakePhwin( $mw );
$mw->focus;
$mw->WidgetDump;
MainLoop;

sub MakePhwin {
    my( $mw ) = @_;
    my $phwin = $mw->Toplevel;
    $phwin->protocol( 'WM_DELETE_WINDOW', [sub{shift->withdraw}, $phwin], );
    $phwin->Label(-text => "Close me hit the little x" )->pack;
    return $phwin;
}
sub MakeMain {
    my $mw = tkinit(@_);
    $mw->Button(
        -text => "Restore phwin",
        -command => sub {
            $_->deiconify
                for grep $_->isa('Tk::Toplevel'),
                    $Tk::widget->toplevel->children;
        },
    )->pack;
    $mw->update;
    return $mw;
}