#!/usr/bin/perl -w
use strict;
$|++;
use IPC::Open2;

my @loglines=("This is not a relevant logline",
"This is not a relevant logline",
"This might be an interesting logine",
"Another interesting logline");

open2(*READ,*WRITE,"./test3.pl") or die;
foreach my $inputline (@loglines) {
        print WRITE "$inputline\n";
}
close (WRITE);

my $outputline;
while ($outputline = <READ>) {
        print $outputline;
}