Select Code to Download

Select or download this

#!/usr/local/bin/perl

...
$ftp->quit()
    or die "Couldn't quit\n";
exit;

Select or download this

./ftp.pl
Net::FTP>>> Net::FTP(2.77)
...
Net::FTP=GLOB(0x83b0060)<<< 226 File send OK.
Net::FTP=GLOB(0x83b0060)>>> QUIT
Net::FTP=GLOB(0x83b0060)<<< 221 Goodbye.

Select or download this

./ftp.pl 
Net::FTP>>> Net::FTP(2.77)
...
Net::FTP=GLOB(0x83b0050)>>> EPSV
Net::FTP=GLOB(0x83b0050)<<< 229 Entering Extended Passive Mode (|||400
+57|)
Net::FTP=GLOB(0x83b0050)>>> NLST

Select or download this

./ftp.pl
Net::FTP>>> Net::FTP(2.77)
...
Net::FTP=GLOB(0x83b0050)>>> CWD pub
Net::FTP=GLOB(0x83b0050)<<< 250 Directory successfully changed.
Can't call method "sockdomain" on an undefined value at /usr/local/sis
+is-pap/perl5.16.2/lib/site_perl/5.16.2/Net/INET6Glue/FTP.pm line 33.

Select or download this

bind(4, {sa_family=AF_INET6, sin6_port=htons(0), inet_pton(AF_INET6, "
+fe80::250:56ff:feb6:5310", &sin6_addr), sin6_flowinfo=0, sin6_scope_i
+d=0}, 28) = -1 EINVAL (Invalid argument)