use Tk;
my $mw = tkinit();
$mw->overrideredirect(1);
MainLoop;