perl -MNet::FTP::File -wle 'my $ftp= Net::FTP->new( "ftp.suse.de", Debug=> 1); $ftp->login("anonymous", "-anonymous@" );'
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(0x8305df0)<<< 220 "Welcome to the SuSE ftp server: Please login as user 'ftp'"

Net::FTP=GLOB(0x8305df0)>>> USER anonymous

Net::FTP=GLOB(0x8305df0)<<< 331 Please send your email address as a password.

Net::FTP=GLOB(0x8305df0)>>> PASS ....

Net::FTP=GLOB(0x8305df0)<<< 230 Login successful. Have a lot of fun.