use strict;
use Tk;

my $mw = MainWindow     -> new();

my ($screenx,$screeny) = ($mw -> screenwidth(),
                          $mw -> screenheight());

$mw                     -> FullScreen(1);
$mw                     -> geometry("${screenx}x$screeny");

my $canvas = $mw        -> Canvas       (-background    => "#000000",
                                         -bd            => 0,
               
      -relief        => "flat")->
                                    pack(-fill          => "both",
                                         -expand        => 1);

$mw                     -> bind        ('<Key-q>',"exit");

MainLoop;