my $f = Net::FTP->new($host, Port => 22, Debug=> 1) or die "Cannot open $host\n";