$ftp = Net::FTP->new("xxx", Debug => 1, Passive => 1) or die "Cannot connect to host: $@";