#!/usr/bin/perl -w 
use strict;

use Tk;

my $mw = MainWindow->new();
my $text = 
    $mw->Text()->
    pack( -expand => 1, -fill => 'both' );

for my $x (0..255) {
    $text->insert( 'end', chr($x) );
}

MainLoop;