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