erickn@cosmora01d:/home/erickn> cat x

use Net::FTP;

my $ftp = Net::FTP->new("ftp.mwh.com", Debug => 1);

$ftp->login('me', 'me');



erickn@cosmora01d:/home/erickn> perl x

Net::FTP: Net::FTP(2.65)
Net::FTP:   Exporter(5.566)
Net::FTP:   Net::Cmd(2.21)
Net::FTP:   IO::Socket::INET(1.26)
Net::FTP:     IO::Socket(1.27)
Net::FTP:       IO::Handle(1.21)

Net::FTP=GLOB(0x2e1da8)<<< 220-=(<*>)=-.:. (( Welcome to PureFTPd 1.0.
+8 )) .:.-=(<*>)=-
Net::FTP=GLOB(0x2e1da8)<<< 220-You are user number 0 of 50 allowed
Net::FTP=GLOB(0x2e1da8)<<< 220-Local time is now 16:37 and the load is
+ 0.00. Server port: 21.
Net::FTP=GLOB(0x2e1da8)<<< 220 You will be disconnected after 15 minut
+es of inactivity.
Net::FTP=GLOB(0x2e1da8)>>> user me
Net::FTP=GLOB(0x2e1da8)<<< 331 User me OK. Password required
Net::FTP=GLOB(0x2e1da8)>>> PASS ....
Net::FTP=GLOB(0x2e1da8)<<< 530 Authentication failed, sorry
[download]