add perl script (scan ftp)