#!/usr/bin/perl -w
use strict 'vars';
#by John Drukman 

$|=1;
use Tk;
use IPC::Open3;
local *IN;
local *OUT;
local *ERR;
my $pid=open3(\*IN,\*OUT,\*ERR,'/bin/sh');

my $inwin=new MainWindow;
my $entry=$inwin->Entry(-width => 80)->pack;
          $inwin->Button(-text => 'Send',
    -command => \&send_to_shell)->pack;

my $outwin=new MainWindow;
my $textwin=$outwin->Text(-width => 80,
     -height => 24,
     -state => 'disabled')->pack;
            $outwin->fileevent(OUT,'readable',\&get_from);
MainLoop;

sub send_to_shell {
  my $cmd=$entry->get() . "\n";
  write_textwin("> $cmd");
  print IN $cmd;
}

sub get_from {
  my $buf='';
  sysread OUT,$buf,4096;
  write_textwin($buf);
}

sub write_textwin {
  my $str=shift;
  $textwin->configure(-state=>'normal');
  $textwin->insert('end',$str);
  $textwin->see('end');
  $textwin->configure(-state=>'disabled');
}
__END__