Select Code to Download

use strict;
use warnings;
...
  or die "get failed ", $ftp->message;

$ftp->quit;

[fireartist@sphinx source]$ /usr/bin/perl ftp.pl

...
Net::FTP=GLOB(0x819612c)<<< 226 File send OK.
Net::FTP=GLOB(0x819612c)>>> QUIT
Net::FTP=GLOB(0x819612c)<<< 221 Goodbye.

[fireartist@sphinx source]$ perl ftp.pl
Net::FTP>>> Net::FTP(2.75)
...
Net::FTP=GLOB(0x82ebc90)<<< 200 PORT command successful. Consider usin
+g PASV.
Net::FTP=GLOB(0x82ebc90)>>> RETR HTML-Menu-DateTime-0.94.tar.gz
(Hangs: I press CTRL-c at this point)

[fireartist@sphinx source]$ perl ftp.pl
Net::FTP>>> Net::FTP(2.75)
...
Net::FTP=GLOB(0x82ebd1c)>>> QUIT
Net::FTP=GLOB(0x82ebd1c)<<< 221 Goodbye.
[fireartist@sphinx source]$

[fireartist@sphinx source]$ /usr/bin/perl -MConfig -e 'printf("%s:%s\n
+", $_, $Config{$_}) for sort keys %Config'
Author:
...
yaccflags:
zcat:
zip:zip

[fireartist@sphinx source]$ perl -MConfig -e 'printf("%s:%s\n", $_, $C
+onfig{$_}) for sort keys %Config'
Author:
...
yaccflags:
zcat:
zip:zip