$book->bind( '', \&RaiseNext ); $book->bind( '', \&RaisePrev ); sub RaiseNext { my( $nb ) = @_; $nb->raise( $nb->info("focusnext") ); } sub RaisePrev { my( $nb ) = @_; $nb->raise( $nb->info("focusprev") ); }