#!/perl

use Tk;

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

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

Tk::MainLoop;