#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11112777
use warnings;
use Tk;

my $mw = MainWindow->new;
my $text = $mw->Scrolled(Text => -scrollbars => 'osoe',
  )->pack;
MainLoop;
[download]