use warnings;
use strict;

use IPC::Run qw(start pump finish timeout);
use Tk;
require Tk::ROText;

my $mw = MainWindow->new(-title => "   NON BLOCKING");
my $outw = $mw->Scrolled('ROText',  
			-font => "{Courier New} 10 bold", 
		        -background => 'DarkBlue', 
			-foreground => 'OldLace',
			-scrollbars => 'se',
			-wrap => 'none',
			-width => 100,
			-height => 10,
			)->pack(-fill => "both", -expand => 1);
																												
# tie *STDOUT, 'Tk::Text', $outw;
tie *STDERR, 'Tk::Text', $outw;

my ($in, $out, $err) = ('', '', '');	
my $h;

if (! defined(eval { $h = start ['cmd.exe', '/c', 'dir'], \$in, \$out, \$err; })) 
{
  print "\nStart failed: $@\n";
}

while($h->pumpable) 
{
  $h->pump;
  print $out;
  $out = '';
}

$h->finish;

MainLoop;