Okay danke!
Habe ich gemacht und kommt folgendes:

Net::FTP>>> Net::FTP(2.77)
Net::FTP>>> Exporter(5.63)
Net::FTP>>> Net::Cmd(2.29)
Net::FTP>>> IO::Socket::INET(1.31)
Net::FTP>>> IO::Socket(1.31)
Net::FTP>>> IO::Handle(1.28)
Net::FTP=GLOB(0xd24b2c)<<< 220 FTP-Uploadserver
Net::FTP=GLOB(0xd24b2c)>>> USER 12XXXX
Net::FTP=GLOB(0xd24b2c)<<< 331 Password required for 12XXXX.
Net::FTP=GLOB(0xd24b2c)>>> PASS ....
Net::FTP=GLOB(0xd24b2c)<<< 230 User logged in, proceed
Net::FTP=GLOB(0xd24b2c)>>> ALLO 5
Net::FTP=GLOB(0xd24b2c)<<< 502 Command 'ALLO' not implemented
Net::FTP=GLOB(0xd24b2c)>>> PORT 17X,33,X,91,2XX,XXX
Net::FTP=GLOB(0xd24b2c): Timeout at ftp.pl line 18.