foreach my $file (@Flist)
           {
             $ftpobj->get($file) or die "can't get file: $!";
           }