"... wonder if I could add the 'scroll' feature ..."

Tk::Scrolled explains how to do that.

It sounds like your application is very similar (at least in terms of GUI layout) to one I wrote quite a few years ago and which I run (without any problems) fairly regularly. I put the entire Tk::NoteBook in a scrolled Tk::Pane.

Here's a severely cutdown version of just the relevant code:

my $mw = MainWindow->new();
...
build_main_pane(\$mw);
...
sub build_main_pane {
    my $mw = ${+shift};

    my $mp = $mw->Scrolled(q{Pane},
        -scrollbars => q{osoe},
        -sticky => q{nsew},
    );

    $mp->pack(-fill => q{both}, -expand => 1);

    build_notebook($mp);

    return;
}

sub build_notebook {
    my ($parent) = @_;

    my $nb = $parent->NoteBook();

    $nb->pack(-fill => q{both}, -expand => 1);

    build_pages($nb);

    return;
}

sub build_pages {
    my ($nb) = @_;

    build_example_page($nb);
    build_other_page($nb);
    ...
    build_last_page($nb);

    return;
}

sub build_example_page {
    my ($nb) = @_;

    my $example_page = $nb->add(example_page =>
        -label => 'Example Page',
        ...
    );

    ...
}
[download]