$sock = IO::Socket::INET->new(
   args => 'go_here',
) || die "blah\n$!\n";

$sock_ref = \$sock;

some_func($sock_ref);

sub some_func {
   $ref = shift;
   $sock = ${$ref};

   $line = <$sock>;
}