in reply to Main window Active

perldoc Tk::focus

In Section Seekers of Perl Wisdom