This should work for your ParseSub if you are using "cmd /b" as your listing command.

 sub get_list {
    my @file_list;
    foreach my $ele (@_){
        my ($name);
        if(-d (getcwd."/$ele")){
          $name = 'IsDirectory';
        }else{
          $name = 'IsPlainFile';
        }
        my $filename = getcwd."/$ele";
        
        my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
           $atime,$mtime,$ctime,$blksize,$blocks)
               = stat($filename);
        
        my @fields = ($mode,$nlink,$uid,$gid,$size,$mtime,$ele);
        push(@file_list,Net::FTP::Recursive::File->new(OriginalLine =>
+ $ele, Fields => \@fields, $name => 1));
    } 
    return @file_list;
}
[download]