#!/usr/bin/perl
use Tk;
my $mw = new MainWindow;

$mw->after(10,sub {
   $mw->FullScreen(1);
   $mw->bind('all'=> '<Key-Escape>' => sub {exit;});
   $mw->focusForce;
   $mw->update;

});

MainLoop;