Select Code to Download

MyDocsBackup]$ ls -al backup1
total 12
...
-rw-r--r--. 1 matt users    0 Feb  5 22:11 eraseme2
drwxr-xr-x. 2 matt users 4096 Feb  5 22:19 eraseme.dir
-rw-r--r--. 1 matt users    0 Feb  5 22:16 eraseme.too

my @TestArray = @{$ftp->dir ( "/$BkRoot/backup1/.*" )}

my @TestArray = @{$ftp->dir ( "/$BkRoot/backup1/*" )}
my @TestArray = @{$ftp->dir ( "/$BkRoot/backup1" )}

print "/$BkRoot/backup1 = \n";
my @TestArray = @{$ftp->dir ( "/$BkRoot/backup1/.*" )};
push ( @TestArray, @{$ftp->dir ( "/$BkRoot/backup1" )});
for ( @TestArray ) { print "   $_\n"; }