use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
my      $screenHeight       = $mw->screenheight;
my      $screenWidth        = $mw->screenwidth;
my $Kiosk_Frame = $mw->Frame(-height => $screenHeight,
				-width  => $screenWidth,
				-background => '#ece9d8'
				);
$mw->geometry($windowWidth."x".$windowHeight);
	$mw->geometry("+".int($screenWidth/2 - $windowWidth/2)."+".(int($screenHeight/2 - $windowHeight/2)-40));
$Kiosk_Frame->place( -x => $screenWidth, -y => $screenHeight );
$mw->focusForce;
MainLoop;