Select Code to Download

#
# initialization 
...
sub _get_sock {
   return($_[0]->{'sock'});
}

$sock = IO::Socket::INET->new(
...

   $line = <$sock>;
}