Checking the source for Tk::MainWindow reveals that it uses the virtual <<LeftTab>>, so this should work for all, and its even simpler

    $mw->bind('all','<Tab>','focusPrev');
    $mw->bind('all','<<LeftTab>>','focusNext');
[download]