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