#!/perl

use Tk;

my $mw = Tk::MainWindow->new;

$mw->bind('<FocusOut>',
        sub {
                $mw->messageBox (-message=>"Bitte Fenster\naktiviert lassen!");
                $mw->bind('<FocusOut>', []);
        }
);

Tk::MainLoop;