use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $text = $mw->Scrolled(
    'Text',
    -width      => 40,
    -height     => 10,
    -wrap       => 'none',
    -scrollbars => 'se',
    -background => 'white',
)->grid(
    -row    => 0,
    -column => 0,
);

MainLoop;