Sounds like you might want the debug info. You can get it via the Debug option.
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
|