Select Code to Download

{
  my $oldsub = \&AnyEvent::Socket::_parse_hosts;
...
  *AnyEvent::Socket::_parse_hosts = sub ($) {
    (my $in = shift) =~ s/\r\n/\n/g; $oldsub->($in) };
}