#!perl use strict; use Tk; use Win32Util; my $mw = new MainWindow; my ($xx, $yy, $w, $h) = Win32Util::client_window_region($mw); $mw->geometry($w.'x'.$h.'+0+0'); MainLoop;