I need some assistance in writing a program in Perl that perform the following function:

A form that will prompt the user for a "source file" and "destination file", then it will ping a server, and if it's alive, it will open up an FTP session on that machine (hardcoded IP), sends login/password (also hardcoded), grab the source file (binary format), close the FTP session, then ping the destination server, and if alive, open up another FTP on a different server, sends login/password, and put the destination file (binary format) and then close the FTP connection. If possible, I would like to be able to see the output of the entire function in a new frame below the form, so the user knows it's working.

Let me know if someone can help out... :-)

Much appreciated as always,
Frank