#assuming this is a part of a bigger Tk program..
...
my $textWidget=$main->Text(
          -height=>'20',
          -width=>'10'
          )->pack;
$textWidget=$main->Scrolled(
          'Text',
          scrollbars=>'w' #this can be n,s,e,w according to compass positions.
         )->pack;

...
MainLoop;