in reply to Perl/TK dialog boxes

$next3->focus; 
or 
$next3->focusForce;

[download]
Read all about it in 'perldoc Tk::focus'.

In Section Seekers of Perl Wisdom