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

my $count=0;
my $fbr=fork_bufferd_read->new(sub{
    my $buf=shift;
    $count++;
    select(undef,undef,undef,0.5);
    $$buf.="$count\t";
    return 0 if($count>35);
    return 1;
  });

die ("NO FORK!\n") unless($fbr);

for(0..10)
{
  sleep 3;
  print "READ $_ :".$fbr->read()."\n";
  unless($fbr->running())
  {
    print "CHILD EXIT!\n";
    last;
  }
}