open OUT,">&=$ENV{myfd}" or die "cannot dup $ENV{myfd}: $!\n";
print "Opened FD $ENV{myfd}\n";
$x=print OUT "***\nHere is data to FD $ENV{myfd}\n***\n";
warn "print=$x ($!)\n";