Help for this page
$f->command(-label=>'QWERTY', -command=>[\&SwitchLayout, $a=>\%QWERTY] +); $f->command(-label=>'DVORAK', -command => [\&SwitchLayout, $a=>\%DVORA +K]);