use Tk;
$top = new MainWindow;
$top->bind('<Visibility>' => sub {
    my $w = shift;
    my $e = $w->XEvent;
    warn $e->s;
});
MainLoop;