$ftp=Net::FTP->new($host, Debug=>1, Hash=>1);
unless (defined($ftp)) {
print "verbindung zu $host fehlgeschlagen\n";
return 0;
}