#! perl -slw
use strict;

my $pid = open my $fh, 'perl.exe junk2.pl |' or die $!;
while( <$fh> ) {
    chomp;
    print localtime() . " Got: '$_'";
}