open my $socket, '+<&=' . $fileno or die $!;
........................^