sub readlineMaybe {
    my $fh = shift;
    my $osfh = GetOsFHandle( $fh ) or die $^E;
    my( $bufsize, $buffer, $cAvail, $read ) = ( 1024, chr(0)x1024, chr(0)x4, 0 );
    PeekNamedPipe( $osfh, $buffer, $bufsize, $read, $cAvail, 0 ) 
        or $^E == 109 or die $^E;
    print 'Available: ', unpack 'V', $cAvail;
    return if $^E == 109;
    my $eolPos = 1+index $buffer, $/;
    return '' unless $eolPos;
    sysread( $fh, $buffer, $eolPos ) or die $!;
    return $buffer;
}