#!/usr/bin/perl
use strict;
use warnings;

use Tk;
use Tk::ROText;

tk_start();
exit;


sub tk_start {
    my $mw = new MainWindow;

    my $t = $mw->Scrolled(
        'ROText',
        -scrollbars => 'osoe',
        -height     => 10,
        -width      => 50,
        -wrap       => 'none',
    )->pack(
        -fill   => 'both',
        -expand => 1,
    );

    seek DATA, 0, 0;
    while (<DATA>) {
        $t->insert('end', $_);
    }

    MainLoop();
} # sub tk_start

_ _DATA_ _