I am not entirely sure how best to say this... but that is a shell script. The use strict; and so on will only produce errors from the shell about not having a command named "use". The first step in doing this with Perl would probably be to look into modules like Net::FTP and LWP::UserAgent that handle FTP.