http://www.perlmonks.org?node_id=224263


in reply to Center a Tk window on the screen

Here's something to try, it centers as well:
#!/usr/bin/perl use Tk; use strict; my $mw=tkinit; $mw->withdraw; #avoid the jumping window bug $mw->Popup; MainLoop;