$ftp->rput( ParseSub => \&get_list )