#!/usr/bin/perl
use Tk;

my $mw = new MainWindow;

$mw->bind('all' => '<Key-Escape>' => sub {exit;});

$mw->FullScreen(1);
$mw->grabGlobal;
$mw->focusForce;

MainLoop;