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

$|++;
open PIPE1, "./blackbox.pl |";
while ( <PIPE1> ) {
   # ...Filter and munge $_
   print $_;
}
close PIPE1;