xref: /dports/x11-toolkits/p5-Tk/Tk-804.035/examples/geom

#!/usr/local/bin/perl -w

use Tk;

$mw = MainWindow->new();
$mw->geometry('-0-0');
MainLoop;