This should work with a gateway, this is working code with some modifi
+ed names.
[download]

Considering you have working code, what is your question? Preferably a Perl question, and not one about the syntax of your ftp program (the Perl part of your program is extremely trivial - just a bunch of assignments and a single system() call.)

Abigail