perl -MTk -e " $mw = tkinit; $b = $mw->Button(-command=>sub{$mw->focus})->pack; $b->focus; MainLoop "