Select Code to Download

use Data::Dumper;
use Net::FTP;
...
my @list = $ftp->dir();
print Dumper(\@list);
$ftp->quit;

          'drwxr-xr-x   7 leinbd   aagdev       512 Oct 17 18:06 leinb
+d',
          'drwxr-xr-x  11 lois     aagdev      1024 Nov 14 14:04 lois'
+,
...
          'drwxr-xr-x   2 maynec   aagdev       512 Nov 20 10:05 mayne
+c',
          'drwxr-xr-x  10 nanayn   aagdev       512 Oct 07 09:52 nanay
+n',
          'drwxr-xr-x   5 root     system       512 Nov 10 15:41 netin
+st',