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

##</code><code>##

say $f->message;