5.80, OS X, bizarre FTP weirdness

[Brad Johnson]

I am running Mac OS X 10.2.7 and recently upgraded from 5.6.1 to 5.8.0
following the guidance at
http://developer.apple.com/internet/macosx/perl.html. It installed
happily, only complaining about the known Berkley DB problems. But
something is now very wrong with the network settings (or something).
I have DSL, connected behind a Linksys wireless router.

The following code

use Net::FTP;

$ftp = Net::FTP->new("ftp1.freebsd.org", Debug => 1);
$ftp->login("anonymous",'(e-mail address removed)');
$ftp->cwd("/pub/FreeBSD/");

print $ftp->dir();
$ftp->quit;

gives the following output:

Net::FTP: Net::FTP(2.65)
Net::FTP: Exporter(5.566)
Net::FTP: Net::Cmd(2.21)
Net::FTP: IO::Socket::INET(1.26)
Net::FTP: IO::Socket(1.27)
Net::FTP: IO::Handle(1.21)

Net::FTP=GLOB(0x12b60)<<< 220 Welcome to mirrors.secsup.org FTP service.
Net::FTP=GLOB(0x12b60)>>> user anonymous
Net::FTP=GLOB(0x12b60)<<< 331 Please specify the password.
Net::FTP=GLOB(0x12b60)>>> PASS ....
Net::FTP=GLOB(0x12b60)<<< 230 Login successful. Have fun.
Net::FTP=GLOB(0x12b60)>>> CWD /pub/FreeBSD/
Net::FTP=GLOB(0x12b60)<<< 250-If you're looking for one of the FreeBSD
releases, please look in the
Net::FTP=GLOB(0x12b60)<<< 250-releases/${ARCH}/${RELNAME} directory,
where ARCH = "i386" or "alpha"
Net::FTP=GLOB(0x12b60)<<< 250-for Intel and DEC Alpha architecture
machines and RELNAME = the release
Net::FTP=GLOB(0x12b60)<<< 250-you're interested in, e.g. "3.5.1-RELEASE"
or "4.2-RELEASE".
Net::FTP=GLOB(0x12b60)<<< 250-
Net::FTP=GLOB(0x12b60)<<< 250 Directory successfully changed.
Net::FTP=GLOB(0x12b60)>>> PORT 192,168,1,100,192,125

at which point it hangs, then kills the internet connection if I don't
interrupt the program.

In contrast at the terminal running the ftp commandline program I get

prompt% ftp mirrors.secsup.org
Connected to mirrors.secsup.org.
220 Welcome to mirrors.secsup.org FTP service.
Name (mirrors.secsup.org:bgjohnson): anonymous
331 Please specify the password.
Password:
230 Login successful. Have fun.
Remote system type is UNIX.
Using binary mode to transfer files.
ftp> cd /pub/FreeBSD/
250-If you're looking for one of the FreeBSD releases, please look in
the
250-releases/${ARCH}/${RELNAME} directory, where ARCH = "i386" or
"alpha"
250-for Intel and DEC Alpha architecture machines and RELNAME = the
release
250-you're interested in, e.g. "3.5.1-RELEASE" or "4.2-RELEASE".
250-
250 Directory successfully changed.
ftp> ls
500 Unknown command.
227 Entering Passive Mode (208,209,50,18,22,139)
150 Here comes the directory listing.
drwxrwxr-x 6 758 497 4096 Jan 06 2003 CERT
etc.

Any idea what's going on?

Thanks,
Brad

(e-mail address removed)