#! /usr/bin/perl -w

use strict;
use Tk;

my $main = new MainWindow;
my $buffer = "AAAA\nBBBB\n";

syswrite STDOUT,$buffer,5,0; # AAAA
syswrite STDOUT,$buffer,5,5; # BBBB

$main->fileevent(\*STDOUT, writable => \&event);

syswrite STDOUT,$buffer,5,0; # AAAA
syswrite STDOUT,$buffer,5,5; # BUG: should print BBBB !!!

sub event() {
  syswrite STDOUT,$buffer,5,0; # AAAA
  syswrite STDOUT,$buffer,5,5; # BUG: should print BBBB !!!
  $main->destroy;
}

MainLoop;

__END__