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