Can anyone interpret this code from Perl to Korn Shell?

mfarid1@yahoo.com

-------------------------------------------------
#!/usr/bin/perl
use Net::FTP;
$ftp = Net::FTP->new("some.host.name", Debug => 1)
or die "Cannot connect to some.host.name: $@";
$ftp->login("anonymous",'-anonymous@')
or die "Cannot login ", $ftp->message;
$ftp->cwd("/myfolder")
or die "Cannot change working directory ", $ftp->message;
$ftp->binary;
for( <*.tmp> ){
$ftp->put($_,"tmp.$$") or die $!; #(This has to be put in my case)
$ftp->rename("tmp.$$",$_) or die $!;
$ftp->size($_) == -s $_ or die "$_ sizes don't match";
}
$ftp->quit;
-----------------------------------------------
What I have so far:

#!/bin/ksh
cd /MyUnixDir
/usr/bin/ftp -n some.host.name <<EOF
user MyID MyPwd
cd /WindowsFolder
binary
prompt
mget *.zip
cd WindowsSubFolder
mput *.zip
cd ..
mdelete *.zip
bye
EOF

unzip *.zip
gunzip -d *.gz
-----------------------------------------------

Some more help needed so there will be additional code along with what
is there above. I need to do the following:

1)I will be working with .zip files NOT .tmp files
2)I need to copy .zip files from Windows to my Unix folder and name the
..zip files as something else, let's say, .txt.
There could be multiple .zip files in the Windows folder.
3)Once the file(s) are copied completely, a size comparison needs to be
made between the Windows and Unix sides.
4)If the sizes are the same, then I need to rename the .txt file back
to the .zip file.

Thanks to anyone who responds.