$ftp=Net::FTP->new("$host",Timeout=>240,Debug=>1) or die "connect\n";