#!/usr/bin/env perl
use warnings;
use strict;

open OUT,">&=$ENV{myfd}" or die "cannot dup $ENV{myfd}: $!\n";
print "Child opened FD $ENV{myfd}\n";
my $p=print OUT "***\nHere is data going to fd $ENV{myfd}\n***\n";
warn "return value of print=$p ($!)\n";