use Tk;
my $mw = tkinit();
           
$mw->Button(-command => sub {
                               $mw->Toplevel()->focus()
                             }, -text => 'Create Toplevel')->pack();
MainLoop();