#! /usr/bin/perl
use warnings;
use strict;
use Tk;

my ($mw,$h,$w);
$mw = MainWindow->new();
$mw->overrideredirect(1);
$h = $mw->screenheight;
$w = $mw->screenwidth;
$h-=28;
$mw->geometry("${w}x${h}+0+0");
$mw->Button( -text => 'EXIT', -command => sub {exit 0;})->pack;
MainLoop();