open IN, "<&SOCKET" or die ...;

##</code><code>##

my $in = ...;
open $in, "<&".fileno($sock) or die ...;