use Tk::Pane;

    $pane = $mw->Scrolled(Pane, Name => 'fred',
        -scrollbars => 'soe',
        -sticky => 'we',
        -gridded => 'y'
    );

    $pane->Frame;

    $pane->pack;