Perl script for moving files

Моля да ми помогнете, ако е възможно естествено. Знам че PERL е най-добрия скриптов език, а аз съм запознат много малко с него. Трябва ми скрипт, който да мести файлове от едно място на друго /например от една папка в друга, която може и да е на друга машина/ и след това да ги праща на друг сървър чрез FTP. Ако някой може да ме опъти къде да намеря такова нещо в интернет или да ми го постне тука или пък да ми го изпрати на apenkov@abv.bg, ще бъда много благодарен!

Благодаря предварително!

[линк]

kazi kakvo to4no iskash i shte vdish reshenieto - tova ne e poveche ot 20 redov script (izkluchvam) $0.conf file-a

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

iee - ne te li domurzq da izpishesh 5 puti poveche prikazki otkolkoto e samiq source
na podoben script ...
pbshtite prikazki sa qsni - $(perldoc Net::FTP | head -20)