http://qs321.pair.com?node_id=878672


in reply to Perl TK Questions

I think you can add this to simulate pressing the Enter / Escape keys:
$mw->bind('<KeyRelease-Return>' => \&Hello); $mw->bind('<KeyRelease-Escape>' => sub{ exit });
And to position in the screen:
$mw->geometry('100x200+1500+1500'); # which represents the size + position