#! perl -slw
use strict;
use Win32API::File qw[ GetOsFHandle ];
use Win32::API::Prototype;

ApiLink(
    'Kernel32', q[
        BOOL PeekNamedPipe(
            HANDLE hNamedPipe,
            LPVOID lpBuffer,
            DWORD nBufferSize,
            LPDWORD lpBytesRead,
            DWORD *lpTotalBytesAvail,
            LPDWORD lpBytesLeftThisMessage
        )
    ]
) or die $^E;

my $cmd = 'perl -le"$|++;print localtime().q[: some text] and sleep 1 for 1..10" |';

my $pid = open my $pipe, $cmd or die $!;
warn $pid;
my $pHandle = GetOsFHandle( $pipe );
warn $pHandle;

while( 1 ) {
    my $cAvail = 0;
    if( ( PeekNamedPipe( $pHandle, 0, 0, 0, $cAvail, 0 ) or warn $^E ) and $cAvail ) {
        defined( my $line = <$pipe> ) or last;
        chomp( $line );
        ## Do stuff with $line
        printf "Got: '%s'\n", $line;
    }
    else {
        ## Do something else
        print 'Tum te tum';
        Win32::Sleep 500;
    }
}