use Tk;

my $mw = MainWindow->new (-title => "Hello");
$mw->Label (-text => 'Hello, world!')->pack;

$mw->repeat (1000,
    sub { print ($mw->ismapped ? "Bin da!\n" : "Bin weg.\n") }
);

MainLoop;