Hello, FTPedWorld...
Net::FTP>>> Net::FTP(2.77)
Net::FTP>>>   Exporter(5.65)
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(0x27ffa5c)<<< 220 FTP Server [213.*.*.*]
Net::FTP=GLOB(0x27ffa5c)>>> USER 1234567
Net::FTP=GLOB(0x27ffa5c)<<< 331 Password required for 1234567
Net::FTP=GLOB(0x27ffa5c)>>> PASS ....
Net::FTP=GLOB(0x27ffa5c)<<< 230 User 1234567 logged in
Net::FTP=GLOB(0x27ffa5c)>>> CWD /httpdocs
Net::FTP=GLOB(0x27ffa5c)<<< 250 CWD command successful
Net::FTP=GLOB(0x27ffa5c)>>> TYPE I
Net::FTP=GLOB(0x27ffa5c)<<< 200 Type set to I
Net::FTP=GLOB(0x27ffa5c)>>> PASV
Net::FTP=GLOB(0x27ffa5c)<<< 227 Entering Passive Mode (213,*,*,*,137,32).
Net::FTP=GLOB(0x27ffa5c)>>> ALLO 4
Net::FTP=GLOB(0x27ffa5c)<<< 202 No storage allocation necessary
Net::FTP=GLOB(0x27ffa5c)>>> PASV
Net::FTP=GLOB(0x27ffa5c)<<< 227 Entering Passive Mode (213,*,*,*,181,252).
Net::FTP=GLOB(0x27ffa5c)>>> STOR test.txt
Net::FTP=GLOB(0x27ffa5c)<<< 150 Opening BINARY mode data connection for test.txt
Net::FTP=GLOB(0x27ffa5c)<<< 226 Transfer complete
Net::FTP=GLOB(0x27ffa5c)>>> HELP PUT
Net::FTP=GLOB(0x27ffa5c)<<< 502 Unknown command 'PUT'
PUT Not supported
Net::FTP=GLOB(0x27ffa5c)>>> DELE test.txt
Net::FTP=GLOB(0x27ffa5c)<<< 250 DELE command successful
Net::FTP=GLOB(0x27ffa5c)>>> QUIT
Net::FTP=GLOB(0x27ffa5c)<<< 221 Goodbye.