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