#!/usr/bin/perl
use Tk;

my $mw = new MainWindow;
$mw->geometry($mw->screenwidth . 'x' . $mw->screenheight . '+0+0');

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

MainLoop;