Add the Port option when you build the FTP connection object -

use Net::FTP;

my $ftp = Net::FTP->new("host", Port => 2345);
...
[download]