watch_stdout.pl

use strict;
use warnings;
use utf8;

use IO::Tee;
use IPC::Open3;
use autodie;

my $cmd = q!perl -e 'while(1){print ++$i."\n"}'!;

my ($out);
my $pid = open3(undef, $out, ">&=".fileno(\*STDERR), $cmd); #srderrは親のstderrにリダイレクト
my $out_tee = IO::Tee->new($out,\*STDOUT); # stdoutはteeして親のstdoutにも流す

while (defined(my $line = <$out_tee>)) {
    #子の標準出力を監視してなんかする
    if ($line =~ /1000/) {
        kill 'INT', $pid;
        last;
    }
}
$out->close;
waitpid($pid,0);