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

my $mw = tkinit;
$mw->geometry("200x300+200+200");

$mw->overrideredirect(1);   # set the override-redirect flag 

$mw->packPropagate(0);      # prevent the window being resized 
                           # for this demo 
$mw->Button(
   -text       => 'Quit',
   -command    => sub { Tk::exit(0) },
)->pack(
   -side       => 'bottom',
);


MainLoop;