Help for this page
open IN, "<&SOCKET" or die ...;
my $in = ...; open $in, "<&".fileno($sock) or die ...;