#!/usr/bin/perl
use v5.14;
use warnings;

my $FD = shift or die "Need file descriptor\n";
open( my $in, '<&', $FD ) or die "Could not open file descriptor '$FD': $!\n";


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

close $in;