Първо отваряш една директория, функцията ти връща масив, след това слагаш едно foreach loop, като местиш всеки елемент от масива, преди това правиш някаква връзка с ФТП сървъра (чрез някой модул става най-лесно, примерно Net::FTP), и в цикъла си слагаш функцията за пращане на файл.Това е горе-долу, пробвай да го направиш сам, ще ти е интересно предполагам.