Select Code to Download

 
my $ls;
    @{$ls} = $ftp->dir();
...
        return undef;
    }
    print Dumper($ls);

$VAR1 = [
          '-rw-------    1 ftp      ftp          4037 Oct 04 16:15 1.j
+pg',
          '-rw-------    1 ftp      ftp         10209 Oct 04 16:15 2.p
+ng',
          '-rw-------    1 ftp      ftp          1314 Oct 03 10:59 3.g
+if'
        ];

my $ls;
    $ls = $sftp->ls()
...
    }
    $ls = $_->{longname} for @$ls;
    print Dumper($ls);

$VAR1 = [
          'drwx--S---    2 pgpftp  pgpftp       4096 Oct  5 11:06 .'
        ];

$VAR1 = [
          'drwx--S---    2 pgpftp  pgpftp       4096 Oct  5 11:06 tst1
+.jpg',
          'drwx--S---    2 pgpftp  pgpftp       4096 Oct  5 11:06 tst2
+.jpg',
          'drwx--S---    2 pgpftp  pgpftp       4096 Oct  5 11:06 tst3
+.jpg'
        ];