# Put the directory in a recursive fashion.
my $output = $ftp_obj->rput(
                Command => '',
                ParseSub => sub {
                      # code to get files 
                      # in current working directory
                },
              );