#!/usr/bin/perl
use v5.14;
use warnings;
use Win32API::File 'OsFHandleOpen';

my $FD = shift or die "Need file descriptor\n";
OsFHandleOpen( *IN, $FD, 'r' )
    or die "Could not open file descriptor '$FD': $!\n";


while(<IN>) {
    chomp;
    say "Got in child: $_";
}

close IN;