Text-Element
•#!/usr/bin/perl
•use strict;
•use warnings;
•use Tk;
•my $mw = MainWindow->new();
•
•$mw->Button(-text    => 'Exit',
•            -command => [$mw => 'destroy'],
•           )
•     ->pack(-side    => 'bottom');
•
•$mw->Scrolled('Text',
•              -scrollbars => 'osoe',
•              -wrap       => 'none',
•             )
•       ->pack(-expand     => 1,
•              -fill       => 'both',
•             );
•
•MainLoop();