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

$|=1;
open( T,"top -d 1 -b  & |");

my $mw = new MainWindow;

my $t = $mw->Scrolled("Text",-width => 80, -height => 25, -wrap => 'none');
                                             $t->pack(-expand => 1);

$mw->fileevent(\*T, 'readable', [\&fill_text_widget,$t]);
MainLoop;
       
sub fill_text_widget {
          my($widget) = @_;
          my $text = <T>;
	  $widget->insert('end',$text);
          $widget->yview('end');
}