my $cmd = '/engine/monitor';
my $pid = open my $fh, '-|', $cmd
    or die "Couldn't launch [$cmd]: $!/$?";
for( 1..10) {
    print scalar <$fh>;
};
close $fh; # kills the child when it next tries to write
kill $pid;