Select Code to Download

use Net::FTP;

...
my @dir = $ftp->ls; # <-- LINE 50

print "Files :" , join('-',@dir), "\n";

C:\Perl>perl l.pl
Net::FTP>>> Net::FTP(2.75)
...
aw_spr-param.xml-etc-ext-install_setup.ksh-logs-maeve-metrica_healthch
+eck.html-n
ohup.out-one.pl-setup.ksh-setup.tpl-setup_appserver.ksh-setup_informix
+.ksh-setup
_java.ksh-setup_openfusion.ksh-update3FFPromo.pl-utils