add perl get data from ftp test code