my $ftp=Net::FTP->new("ftp.cpan.org", Debug => 1, Passive => 0)