in reply to Net::FTP Upload much slower than Dos prompt command ftp

Try adjusting the BlockSize parameter: 

$ftp = Net::FTP->new($host, BlockSize => ... );

[download]

In Section Seekers of Perl Wisdom