use strict;
use warnings;
use Tk;

my $main = MainWindow->new (-title => "Demo");
my $txt = $main -> Scrolled('Text',-width=>57,-height=>5,-scrollbars =>'osoe');
$txt->form (-left=>'%0',-top=>'%0',-bottom=>'%100',-right=>'%100');
$txt->Insert ("text\n\n\nMore\n\n\nand more");
MainLoop ();