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

my $mw = new MainWindow;
$mw->geometry("600x400");

$mw->Button(-text => "See STDERR", -command => \&do_Toplevel)->pack();

my $tout = $mw->Scrolled(
    'Text',
    -foreground => 'white',
    -background => 'black',
    -width  => 80,
    -height => 20,
                 )->pack;

my $top =  $mw->Toplevel();
$top->withdraw;

my $terr = $top->Scrolled(
    'Text',
    -foreground => 'hotpink',
    -background => 'black',
    -width  => 80,
    -height => 20,
)->pack;

my $pid = open3( 0, \*OUT, \*ERR, "$0-sender" );
#the 0 is for ignoring \*IN  (STDIN)
$mw->fileevent( \*OUT, 'readable', \&write_out );
$mw->fileevent( \*ERR, 'readable', \&write_err );

MainLoop;
#####################################################
sub do_Toplevel {
  if (! Exists($top)) {
  $top = $mw->Toplevel(  );
  $top->title("T-ERR");
  $top->Button(-text => "Close",
          -command => sub { $top->withdraw })->pack;
        } else {
           $top->deiconify(  );
           $top->raise(  );
	  }
 }
###############################
sub write_out {
    my $str = <OUT>;
    $tout->insert( "1.0", $str );
    $tout->see("1.0");
}
############################
sub write_err {
    my $str = <ERR>;
    $terr->insert( "1.0", $str );
    $terr->see("1.0");
}
###########################################
__END__

##</code><code>##

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

$| = 1;
my $count = 0;
while(1){
 $count++;
 print "$count\n";
 warn "\tuh oh warning $count\n";
 sleep 1;
}