#!/usr/bin/perl
use Tk;
use strict;
my $mw=MainWindow->new;
my $scroll=$mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true -height 30 -scrollbars e/);
$scroll->pack(qw/-expand yes -fill both/);
$scroll->insert('0.0','some test');
MainLoop