in reply to Re^3: Net::FTP Upload much slower than Dos prompt command ftp
in thread Net::FTP Upload much slower than Dos prompt command ftp

I believe the slowdown is caused by the default blocksize used (10k):

${*$ftp}{'net_ftp_blksize'} = abs($arg{'BlockSize'} || 10240);

[download]

You can easily test this hypothesis by supplying a parameter BlockSize => 4096 to the constructor.

I'd step through 1024, 2048, 4096 etc. and see what difference if any that makes to your throughput.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom