#!/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->Button(
   -text       => 'Quit',
   -command    => sub { Tk::exit(0) },
)->pack( -side       => 'bottom',);

MainLoop;


##</code><code>##

#!/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->Button(
   -text       => 'Quit',
   -command    => sub { Tk::exit(0) },
)->pack( -side       => 'bottom',);

$mw->Button(
   -text       => 'Restore WM Controls',
   -command    => \&restore_WM,
)->pack( -side       => 'bottom',);

MainLoop;

sub restore_WM{
 $mw->withdraw;
 $mw->overrideredirect(0);   # set the override-redirect flag
 $mw->update;
 $mw->deiconify;
}