#!/usr/bin/perl

use warnings;
use Data::Dumper;
use IO::Handle;
use IPC::Open2;
use IO::Select;

my $i;
my ($readHandle, $writeHandle) = (IO::Handle->new, IO::Handle->new);
my $pid = open2($readHandle, $writeHandle, 'bc');

$writeHandle->autoflush(1);
$readHandle->autoflush(1);

my $select = IO::Select->new();
$select->add($readHandle);
while (1) {
    print $i++,"\n";
    my ($handle) = $select->can_read(5);
}