my $ftp = Net::FTP->new($host, Debug => 1);