use Tk;
use Tk::Pane;

.....snip....

## Create Frame of elements
my $frame= $mw->Scrolled('Pane',
                        -relief => 'groove',
                        -bd => 1, -scrollbars=>"se");
  $frame->pack(-fill => 'both', -expand => 1);