my %dir = $ftp->ls

##</code><code>##

for my $filename (keys %dir) {
   print $filename{perm}, "\n";
}