use Tk;
my $app =  new MainWindow;
$app->bind('<Configure>', sub{ print "configure"; });
$app->bind('<Unmap>', sub{ print "Unmap"; });
$app->bind('<Map>', sub{ print "Map"; });
MainLoop;