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


in reply to Tk - Place DialogBox in middle of top window


I think this link should help you:
http://www.perlmonks.org/?node_id=337928