use Tk;
my $mw = new MainWindow;
my $tl = $mw->Toplevel;
$tl->bind('all' => '<Key-Escape>' => sub {exit;});
$tl->FullScreen(1);
MainLoop;