[MacPerl] Line termination issues with IO::Socket?

[Lord Praetor Satanus of Acheron]

I just downloaded and tried out Bill Weinman's BW-WHOIS on MacPerl, and got
output which suggests it's not handling the line terminators of the WHOIS
service output correctly.

(You can get a copy at http://bw.org/ )

I've even tried experimenting with different $/ settings prior to the USE
statements with no effect.

Do I need to hand-tweak the IO:: libraries, or is there another
directive/configuration thing which can allow me to specify what
line-terminations are used in the script?

I get:

# IO::Socket::INET: Bad hostname 'whois.networksolutions.com(box)   Referral
URL: www.networksolutions.com(box)

I know the boxes are line terminators which PERL doesn't acknowledge, but
how do I tell the IO subsystem to acknowledge LFs instead of CRs?

I have up at the top of the script:

use strict;
use IO::Socket;
use Getopt::Long;
$/ = "\n";

I've also put the $/ above the first "use" statement with no change in
effect.

The diagnostics output fine (when I call it with a null parametre), but the
network i/o parsing is broken because of this.

Is there a way to make the IO:: parts tolerant of different line
terminators?  This should be a FAQ! :)  I saw some occurrences and mentions
of this in the archives, but no solutions.

Ideally, I'd like to rewrite as little as possible of the core libs - I
don't mind a line or two at the beginning of my perl programs though.

=Rob=

*****************************| WARNING |********************************
 Don't even THINK of spamming this address, or sending it HTML e-mail.
 Please review http://www2.paypc.com/blacklists/ before e-mailing. Your
 ISP may be blacklisted due to rampant network abuse.
************************************************************************