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