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