use Net::FTP;

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