One

$book->focus( $book->raised );
$book->focusFollowsMouse;
[download]

or

$mw->focusFollowsMouse;
[download]

Two

$book->bind(  '<Control-Tab>',  \&RaiseNext );
$book->bind(  '<Shift-Control-Tab>', \&RaisePrev );
sub RaiseNext {
    my( $nb ) = @_; 
    $nb->raise( $nb->info("focusnext") );
}
sub RaisePrev {
    my( $nb ) = @_; 
    $nb->raise( $nb->info("focusprev") );
}
[download]

For my win32, Tk::DynaTabFrame doesn't change anything in your program, it actually breaks tab cycling