open(my $fh, '<&=', $fd)
   or die($!);