#!/usr/bin/perl 
use warnings;
use strict;
use Tk;
use IPC::Open3;

$|=1;
my $pid=open3(\*IN,\*OUT,0,'/bin/sh');

my $mw = new MainWindow(-title=>'Left Click->Update   Right Click->Close');

$mw->fontCreate('medium',
      -family=>'courier',
      -weight=>'bold',
         -size=>int(-14*14/10));
	 
my $text = $mw->Scrolled('Text',
                       -bg => 'black',
                      -fg => 'lightsteelblue',
                      -width => 130,
                     -height => 30, 
		     -font => 'medium',
		     )->pack;

$mw->fileevent(\*OUT,'readable',\&get_from);

$mw->bind('<ButtonPress-1>' => sub{
                $text->delete('1.0','end'); 
                $text->update;
		print IN "ps auxww\n";
                });

$mw->bind('<ButtonPress-3>' => sub{ exit });

print IN "ps auxww\n";

MainLoop;

sub get_from {
  my $pstext = (<OUT>);
  $text->insert('end',$pstext);
  $text->see('1.0');
 }
__END__