open my $clone, '+<&=', $fileno or die ...;