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